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8K basic 


INTRODUCTION 

8K BASIC is an interactive programming language with a vari- 
ety of applications. It is used in scientific and business environments 
to solve both simple and complex mathematical problems with a 
minimum of programming effort. It is used by educators and stu- 
dents as a problem-solving tool and as an aid to learning through 
programmed instruction and simulation. 

In many respects the BASIC language is similar to other pro- 
gramming languages (such as FOCAL and FORTRAN), but 
BASIC is aimed at facilitating communication between the user 
and the computer. The BASIC user types in the computational 
procedure as a series of numbered statements, making use of com- 
mon English words and familiar mathematical notations. Because 
of the small number of commands necessary and its easy applica- 
tion in solving problems, BASIC is one of the simplest computer 
languages to learn. With experience, the user can add the advanced 
techniques available in the language to perform more intricate 
manipulations or express a problem more efficiently and concisely. 

8K BASIC is an extended version of DEC’s 4K BASIC, 1 but 
has additional features and requires 8K of core. The user who has 
no familiarity with the BASIC language may wish to refer to the 
EduSystem Handbook for a background description of the lang- 
uage fundamentals, and for information pertaining to working 
with BASIC at the computer. 

The minimum system configuration for 8K BASIC is a PDP-8 


1 4K BASIC, or EduSystem 10, is the most fundamental BASIC in DEC’s 
series of EduSystems. This series is directed primarily for use in an educa- 
tional environment. Information concerning the EduSystems may be ob- 
tained from DEC’s PDP-8 Educational Marketing Department. 
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series computer with 8K of core memory. Supported options in- 
clude a high-speed reader and punch, and an LP08 line printer. 

New features provided by 8K BASIC include one and two- 
dimensional subscripting, faster execution time, user-coded func- 
tions, use of the LP08 line printer and high-speed reader/punch, 
and specification of input and output devices from any part of a 
program. 

Loading and operating instructions and a command summary 
are included at the end of the manual. 

NUMBERS 

BASIC treats all numbers (real and integer) as decimal numbers 
— that is, it accepts any number containing a decimal point, and 
assumes a decimal point after an integer. The advantage of treating 
all numbers as decimal numbers is that the programmer can use 
any number or symbol in any mathematical expression without re- 
gard to its type. 

In addition to integer and real formats, a third format is recog- 
nized and accepted by 8K BASIC and is used to express numbers 
outside the range .01<=x<=l,000,000. This format is called 
exponential or E-type notation, and in this format, a number is 
expressed as a decimal number times some power of 10. The 
form is: 


xxEn 

where E represents “times 10 to the power of”; thus the number 
is read: “xx times 10 to the power of n.” For example: 

23.4E2 = 23.4*10 2 = 2340 


Data may be input in any one or all three of these forms. Re- 
sults of computations are output as decimals if they are within the 
range previously stated; otherwise, they are output in E format. 
BASIC handles seven significant digits in normal operation and 
input/output, as illustrated below : 

Value Typed In Value Output By BASIC 


.01 

.0099 

999999 

1000000 


.01 

9.900000E— 3 

999999 

1.000000E+6 


2 



BASIC automatically suppresses the printing of leading and trail- 
ing zeros in integer and decimal numbers, and, as can be seen 
from the preceding examples, formats all exponential numbers in 
the form : 

(sign) x.xxxxxx E (+ or — ) n 

where x represents the number carried to six decimal places, E 
stands for “times 10 to the power of,” and n represents the ex- 
ponential value. For example : 

— 3.470218E+8 is equal to -347,021,800 
7.260000E— 4 is equal to .000726 

VARIABLES 

A variable in BASIC is an algebraic symbol representing a 
number, and is formed by a single letter or a letter followed by a 
digit. For example: 

Acceptable Variables Unacceptable Variables 

I 2C — a digit cannot begin 

a variable 

B3 AB — two or more letters 

cannot form a vari- 
able 
X 

The user may assign values to variables either by indicating the 
values in a LET statement, or by inputting the values as data; 
these operations are discussed further on in the manual. 

ARITHMETIC OPERATIONS 

BASIC performs addition, subtraction, multiplication, division 
and exponentiation, as well as more complicated operations ex- 
plained in detail later in the manual. The five operators used in 


writing most formulas are 

• 


Symbol 

Operator 

Meaning 

Example 

+ 

Addition 

A + B 

— 

Subtraction 

A -B 

* 

Multiplication 

A * B 

/ 

Division 

A / B 

t 

Exponentiation 
(Raise A to the 

Bth power) 

A t B 
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Priority of Arithmetic Operations 

In any given mathematical formula, BASIC performs the arith- 
metic operations in the following order of evaluation: 

1. Parentheses receive top priority. Any expression within 
parentheses is evaluated before an unparenthesized expres- 
sion. 

2. In absence of parentheses, the order of priority is: 

a. Exponentiation 

b. Multiplication and Division (of equal priority) 

c. Addition and Subtraction (of equal priority) 

3. If either 1 or 2 above does not clearly designate the order of 
priority, then the evaluation of expressions proceeds from 
left to right. 

The expression AtBtC is evaluated from left to right as follows: 

1. AtB = step 1 

2. (result of step l)tC = answer 

The expression A/B*C is also evaluated from left to right since 
multiplication and division are of equal priority: 

1. A/B = step 1 

2. (result of step 1)*C = answer 

PARENTHESES 

Parentheses may be used by the programmer to change the 
order of priority (as listed in rule 2 above), as expressions within 
parentheses are always evaluated first. Thus, by enclosing expres- 
sions appropriately, the programmer can control the order of eval- 
uation. Parentheses may be nested, or enclosed by a second set (or 
more) of parentheses. In this case, the expression within the inner- 
most parentheses is evaluated first, and then the next innermost, 
and so on, until all have been evaluated. 

Consider the following example: 

A = 7*( CB t 2 + 4 ) /X) 

The order of priority is: 

1. BT2 

2. (result of step 1) +4 

3. (result of step 2)/X 

4. (result of step 3) *7 


= step 1 
= step 2 
= step 3 
= A 
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Parentheses also prevent any confusion or doubt as to how the 
expression is evaluated. For example: 

A*Bt 2/7+B/C + Dt 2 
C CA*Bt 2 )/7 ) + ( (B/C )+Dt 2 ) 

Both of these formulas will be executed in the same way. How- 
ever, the inexperienced programmer or student may find that the 
second is easier to understand. 

Spaces may be used in a similar manner. Since the BASIC com- 
piler ignores spaces, the two statements: 

10 LET B = DT2 + 1 
1 0LETB=D t 2 + 1 


are identical, but spaces in the first statement provide ease in 
reading. 

RELATIONAL OPERATORS 

A program may require that two values be compared at some 
point to discover their relation to one another. To accomplish this, 
BASIC makes use of the following relational operators: 


= equal to 
< less than 
<= less than or 
equal to 


> greater than 
>= greater than or 
equal to 

<> not equal to 


Depending upon the result of the comparison, control of program 
execution may be directed to another part of the program, or the 
validity of the relationship may cause a value of 0 to 1 to be as- 
sociated with a variable (that is, if a condition is true, a value of 
1 is assigned; if a condition is not true, then the value of 0 is re- 
turned). Relational operators are used in conjunction with IF and 
LET statements, both of which are discussed in greater detail later 
in the manual. 

The meaning of the equal ( = ) sign should be clarified. In 
algebraic notation, the formula X=X+1 is meaningless. However, 
in BASIC (and most computer languages), the equal sign desig- 
nates replacement rather than equality. Thus, this formula is 
actually translated: “add one to the current value of X and store 
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the new result back in the same variable X.” Whatever value has 
previously been assigned to X will be combined with the value 1. 
An expression such as A=B+C instructs the computer to add the 
values of B and C and store the result in a third variable A. The 
variable A is not being evaluated in terms of any previously as- 
signed value, but only in terms of B and C. Therefore, if A has 
been assigned any value prior to its use in this statement, the old 
value is lost; it is instead replaced by the value of B+C. 

IMMEDIATE MODE 

There are two commands available which allow BASIC to act 
as a calculator — PRINT and LET. The user types in the algebraic 
expression which is to be calculated, and BASIC types back the 
result. This is called immediate mode since the user is not required 
to write a detailed program to calculate expressions and equations, 
but can use BASIC to produce results immediately. 

PRINT Command 

The PRINT command is of the form : 

PRINT expression 

and instructs BASIC to compute the value of the expression and 
print it on the Teletype. The expression may be made up of any 
decimal number, the arithmetic operators mentioned previously, and 
the functions which are discussed further on in the manual. (These 
may be used in conjunction with a string of text, as explained in the 
section concerning the PRINT statement.) For example: 


PRINT 1/8*8 
5 • 960464E-0 8 


LET Command 

Values may be assigned to variables by use of the LET com- 
mand as follows: 


LET variable = expression 

The computer does not type anything in response to this com- 
mand, but merely stores the information. This information may 
then be used in conjunction with a PRINT command to calculate 
results. For example: 
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LET PI =3. 14159 


PRINT PI *4t 2 
50 .26544 


BASIC STATEMENTS 
Example Program 

The following example program is included at this point as an 
illustration of the format of a BASIC program, the ease in running 
it, and the type of output that may be produced. This program 
and its results are for the most part self-explanatory. Following 
sections cover the statements and commands used in BASIC pro- 
gramming. 


10 REM - PROGRAM TO TAKE AVERAGE OF 
1 5 REM - STUDENT GRADES AND CLASS GRADES 

20 PRINT "HOW MANY STUDENTS j HOW MANY GRADES PER STUDENT"; 
30 INPUT A > B 
40 LET 1=0 
50 FOR J=I TO A - 1 
55 LET V=0 

60 PRINT "STUDENT NUMBER =";j 

75 PRINT "ENTER GRADES" 

76 LET D= J 

80 FOR K=D TO D+ (B-l ) 

81 INPUT G 

82 LET V=V+G 
85 NEXT K 

90 LET V= V/B 

95 PRINT "AVERAGE GRADE =";V 

96 PRINT 

99 LET Q=Q+V 

100 NEXT J 

101 PRINT 

102 PRINT 

103 PRINT "CLASS AVERAGE ="jQ/A 

104 STOP 
140 END 
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RUN 

HOW MANY STUDENTS > HOW MANY GRADES PER STUDENT? 5, A 
STUDENT NUMBER = 0 
ENTER GRADES 
? 78 
? 86 
? 88 
? 74 

AVERAGE GRADE = 81-5 

STUDENT NUMBER = 1 
ENTER GRADES 
? 59 
? 86 
? 70 
? 87 

AVERAGE GRADE = 75.5 

STUDENT NUMBER = 2 
ENTER GRADES 
? 58 
? 64 
? 7 5 
? 80 

AVERAGE GRADE = 69.25 

STUDENT NUMBER = 3 
ENTER GRADES 
? 88 
? 92 
? 85 
? 7 9 

AVERAGE GRADE = 86 

STUDENT NUMBER = 4 
ENTER GRADES 
? 60 
? 7 8 
? 85 
? 80 

AVERAGE GRADE = 75*75 


CLASS AVERAGE = 77.6 
READY. 


Statement Numbers 

An integer number is placed at the beginning of each line in a 
BASIC program. BASIC executes the statements in a program in 
numerically consecutive order, regardless of the order in which 
they have been typed. A common practice is to number lines by 
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fives or tens, so that additional lines may be inserted in a program 
without the necessity of renumbering lines already present. 

Multiple statements may be placed on a single line by sep- 
erating each statement from the preceding statement with a back- 
slash (SHIFT/L). For example: 

10 A=5\B=. 2\C=3\PRINT "ENTER DATA" 

All of the statements in line 10 will be executed before BASIC con- 
tinues to the next line. Only one statement number at the beginning 
of the entire line is necessary. However, it should be remembered 
that program control cannot be transferred to a statement within 
a line, but only to the first statement of the line in which it is con- 
tained (see the section entitled Transfer of Control Statements). 

Commenting the Program 
REM 

The REM or REMARK statement allows the programmer to 
insert comments or remarks into a program without these com- 
ments affecting execution. The BASIC compiler ignores every- 
thing following REM. The form is: 

(line number) REM (message) 

In the Example Program, lines 10 and 15 are REMARK state- 
ments describing what the program does. It is often useful to put 
the name of the program and information relating to its use 
at the beginning where it is available for future reference. Remarks 
throughout the body of a long program will help later debugging 
by explaining the purpose of each section of code within the 
program. 

Terminating the Program 

END 

The END statement (line 140 in the Example Program), if 
present, must be the last statement of the entire program. The form 
is: 

(line number) END 

This statement acts as a signal that the entire program has been 
executed. Use of the statement is optional. However, if the pro- 
gram contains an END statement, after execution, variables and 
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arrays are left in an undefined state, thereby losing any values they 
have been assigned during execution. 

STOP 

The STOP statement is used synonymously with the END state- 
ment to terminate execution, but while END occurs only once at 
the end of a program, STOP may occur any number of times. The 
format of the STOP statement is: 

(line number) STOP 

This statement signals that execution is to be terminated at that 
point in the program where it is encountered. 

The Arithmetic Statement 
LET 

The Arithmetic (LET) statement is probably the most com- 
monly used BASIC statement and is used whenever a value is to 
be assigned to a variable. It is of the form: 

(line number) (LET) x = expression 

where x represents a variable, and the expression is either a num- 
ber, another variable, or an arithmetic expression. The word ‘LET’ 
is optional; thus the following statements are treated the same: 

100 LET A=AtB+10 110 LET C=F/G 

100 A=A f B+ 1 0 110 C = E/G 

As mentioned earlier, relational operators may be used in a LET 
statement to assign a value of 0 (if false) or 1 (if true) to a 
variable depending upon the validity of a relationship. For example: 

100 A=1\B=2 
110 C=A=B 
120 D=A>B 
130 E=A <> B 
1 40 PRINT CjDjE 
1 50 END 

Translated, this actually means “let C=1 if A=B (0 otherwise); 
let D=1 if A>B (0 otherwise)” and so on. Thus, the values of C, 
D, and E are printed as follows: 
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RUN 

0 


0 


1 


READY. 


There is no limit to the number of relationships that may be tested 
in the statement. 

Input/ Output Statements 

Input/Output statements allow the user to bring data into a 
program and output results or data at any time during execution. 
The Teletype keyboard, low or high-speed reader/punch, and 
LP08 line printer are all available as I/O devices in 8K BASIC. 
Statements which control their use are described next. 

READ AND DATA 

READ and DATA statements are used to input data into a pro- 
gram. One statement is never used without the other. The form of 
the READ statement is : 

(line number) READ xl, x2, . . . xn 

where xl through xn represent variable names. For example: 

10 READ A.B.C 

A, B, and C are variables to which values will be assigned. Vari- 
ables in a READ statement must be separated by commas. READ 
statements are generally placed at the beginning of a program, but 
must at least logically occur before that point in the program 
where the value is required for some computation. 

Values which will be assigned to the variables in a READ state- 
ment are supplied in a DATA statement of the form: 

(line number) DATA xl, x2, . . . xn 

where xl through xn represent values. The values must be sep- 
arated by commas and occur in the same order as the variables 
which are listed in the corresponding READ statement. A DATA 
statement appropriate for the preceding READ statement is: 

70 DATA 1 , 2,3 
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Thus, at execution time A=l, B=2, and C=3. 

The DATA statement is usually placed at the end of a program 
(before the END statement) where it is easily accessible to the 
programmer should he wish to change the values. 

A READ statement may have more or fewer variables than 
there are values in any one DATA statement. The READ state- 
ment causes BASIC to search all available DATA statements in 
the order of their line numbers until values are found for each 
variable in the READ. A second READ statement will begin read- 
ing values where the first stopped. If at some point in the program 
an attempt is made to read data which is not present or if the data 
is not separated by commas, BASIC will stop and print the follow- 
ing message at the console : 

DATA ERROR AT LINE XXXX 

where XXXX indicates the line which caused the error. 
RESTORE 

If it should become necessary to use the same data more than 
once in a program, the RESTORE statement will make it possible 
to recycle through the DATA statements beginning with the lowest 
numbered DATA statement. The RESTORE statement is of the 
form: 

(line number) RESTORE 
An example of its use follows: 

15 READ BjC.D 


55 RESTORE 
60 READ E*F,G 


80 DATA , 9 ,2 

100 END 


The READ statements in lines 1 5 and 60 will both read the first 
three data values provided in line 80. (If the RESTORE statement 
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had not been inserted before line 60, then the second READ would 
pick up data in line 80 starting with the fourth value.) 

The programmer may use the same variable names the second 
time through the data, or not, as he chooses, since the values are 
being read as though for the first time. In order to skip unwanted 
values, the programmer may insert replacement, or dummy, vari- 
ables. Consider: 


1 REM - PROGRAM TO ILLUSTRATE USE OF RESTORE 
20 READ N 

25 PRINT "VALUES OF X ARE:" 

30 FOR 1=1 TO N 
40 READ X 
50 PRINT X, 

60 NEXT I 
70 RESTORE 
1 85 PRINT 

190 PRINT "SECOND LIST OF X VALUES" 

200 PRINT "FOLLOWING RESTORE STATEMENT:" 

210 FOR 1=1 TO N 
220 READ X 
230 PRINT X, 

240 NEXT I 

250 DATA 4,1,2 

251 DATA 3,4 
300 END 


RUN 

VALUES OF X ARE: 

12 3 4 

SECOND LIST OF X VALUES 
FOLLOWING RESTORE STATEMENT: 

4 12 3 

READY. 


The second time the data values are read, the first X picks up 
the value originally assigned to N in line 20, and as a result, BASIC 
prints: 


4 


2 


3 
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To circumvent this, the programmer could insert a dummy variable 
which would pick up and store the first value, but would not be 
represented in the PRINT statement, in which case the output 
would be the same each time through the list. 

INPUT 

The INPUT statement is used when data is to be supplied by 
the user from the Teletype keyboard while a program is executing, 
and is of the form: 

(line number) INPUT xl, x2, . . . xn 
where xl through xn represent variable names. For example: 

25 INPUT A,B,C 

This statement will cause the program to pause during execution, 
print a question mark on the Teletype console, and wait for the 
user to type in three numerical values. The user must separate the 
values by commas; they are entered into the computer by his press- 
ing the RETURN key at the end of the list. 

If the user does not insert enough values to satisfy the INPUT 
statement, BASIC prints another question mark and waits for more 
values to be input. When the correct number has been entered, 
execution continues. If two many values are input, BASIC ignores 
those in excess of the required number. The values are entered 
when the user types the RETURN key. 

PTR 

A PTR statement is used when data is to be input from the high- 
speed paper tape reader. The format of the data on the paper tape 
must be the same as it would be if it were input from the Teletype 
keyboard. If more than one value is to be input at a time, the 
values must be separated by commas. The tape must be positioned 
in the reader before it is called by the program; while it is reading, 
there is no echo (type out) on the Teletype. The form is: 

(line number) PTR 

The PTR statement is most useful for inputting large amounts of 
data in conjunction with the INPUT command. The following 
program accepts 20 data values from the high-speed reader, prints 
a heading, the value input, and its sine on the Teletype: 
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50 PTR 

60 PRINT "SINE TABLE" 
100 FOR J=1 TO 20 
1 10 INPUT A 
120 LET B = S IN ( A ) 

1 30 PRINT AjB 
140 NEXT J 
1 50 END 


RUN 

SINE TABLE 


-.97 

-.8248857 

-.911 

-.7901 171 

- . 872 

- . 765617 1 

-.723 

-.6616371 

-.719 

-.6586325 

-.61 

- . 5728675 

- . 502 

-.481 1798 

-.346 

-.3391376 

-.33 

-. 324043 

-.283 

-.2792376 

-.175 

-. 1741081 

-.155 

-. 1543801 

- .02 

-.01999867 

.03 

.0299955 

.093 

.092866 

. 127 

. 1266589 

. 1 3 

. 1296341 

.42 

.4077605 

. 529 

. 5046703 

.632 

. 5907596 

READY. 


PRINT 



The PRINT statement is used to output results of computations, 
comments, values of variables, or plot points of a graph on the 
Teletype. The format is: 

(line number) PRINT expression 

When used without an expression, a blank line will be output on 
the Teletype. For more complicated formats, the type of expression 
and the type of format control characters following the word 
PRINT determines which formats will be created. 

In order to have the computer print out the results of a compu- 
tation, or the value of a variable at any point in the program, the 
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user types the line number, PRINT, and the variable name(s) 
separated by a format control character, in this case, commas: 

5 A= 1 6\B=5\C=4 
10 PRINT C + Rj SQR (A ) 

In BASIC, a Teletype line is formatted into five fixed columns 
(called print zones) of 14 spaces each. In the above example, the 
values of A, C+B, and the square root of A will be printed in the 
first three of these zones as follows: 

RUN 

16 9 A 

READY. 

A statement such as: 

5 A = 2 . 3 \B = 2 1\C=156.7 5\D= 1 . 1 34\E^23.4 
10 PRINT A,B,C,D:,E 

will cause the values of the variables to be printed in the same 
format using all five columns: 

RUN 

2.3 21 156.75 1.134 23.4 

READY. 

When more than five variables are listed in the PRINT statement, 
the sixth value begins a new line of output. 

The PRINT statement may also be used to output a message or 
line of text. The desired message is simply placed in quotation 
marks in the PRINT statement as follows : 

10 PRINT "THIS IS A TEST" 

When line 10 is encountered during execution, the following will 
be printed: 

THIS IS A TEST 

A message may be combined with the result of a calculation or a 
variable as follows : 
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80 PRINT "AMOUNT PER PAYMENT ="R 

Assuming R=344.9617, when line 80 is encountered during execu- 
tion, this will be output as: 

RUN 

AMOUNT PER PAYMENT = 344.9617 
READY. 

It is not necessary to use the standard five zone format for out- 
put. The control character semicolon (;) causes the text or data 
to be output immediately after the last character printed (sep- 
arated by one space.) If neither a comma nor a semicolon is used, 
BASIC assumes a semicolon. Thus both of the following: 

80 PRINT "AMOUNT PER PAYMENT ="R 
80 PRINT "AMOUNT PER PAYMENT ="JR 

will result in : 

AMOUNT PER PAYMENT = 344.9617 

The PRINT statement can also cause a constant to be printed on 
the console. (This is similar to the PRINT command used in Im- 
mediate Mode.) For example: 

10 PRINT 1 . 234,SQR( 100 14 ) 

will cause the following to be output at execution time: 

1.234 100.07 

Any algebraic expression in a PRINT statement will be evaluated 
using the current value of the variables. Numbers will be printed 
according to the format previously specified. 

The following example program illustrates the use of the control 
characters 2 in PRINT statements : 


2 The user may wish to refer to the section entitled Functions for in- 
formation pertaining to three functions available for additional character 
control— TAB, PUT, and GET. 
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10 READ A,B,C 

20 PRINT A>B/C»A*2jB*2>Ct2 
30 PRINT 

40 print a;b;c;at 2 ;bt 2;c» 2 

50 DATA 4,5,6 
60 END 


RUN 

4 5 6-16 25 

36 

4 5 6 16 25 36 

READY. 


As this example illustrates, if a number should be too long to be 
printed on the end of a single line, BASIC automatically moves the 
entire number to the beginning of the next line. 

Another use of the PRINT statement is to combine it with an 
INPUT statement so as to identify the data expected to be entered. 
As an example, consider the following program: 

10 REM - PROGRAM TO COMPUTE INTEREST PAYMENTS 
20 PRINT "INTEREST IN PERCENT"; 

25 INPUT J 

26 LET J=J/100 

30 PRINT "AMOUNT OF LOAN"; 

35 INPUT A 

40 PRINT "NUMBER OF YEARS"; 

45 INPUT N 

50 PRINT "NUMEER OF PAYMENTS PER YEAR"; 

55 INPUT M 

60 LET N=N*M 

6 5 LET I = J/M 

70 LET B=l+I 

75 LET R=A*I/C1 -1/B»N> 

78 PRINT 

80 PRINT "AMOUNT PER PAYMENT =";R 
85 PRINT "TOTAL INTEREST =";R*N-A 

88 PRINT 
90 LET B=A 

95 PRINT " INTEREST APP TO PRIN BALANCE" 

100 LET L=B*I 

1 10 LET P=R-L 

120 LET B=B-P 

130 PRINT L jP >B 

140 IF B> =RG 0 TO 100 

150 PRINT B*I,R-B*I 

160 PRINT "LAST PAYMENT ="B*I+B 

200 END 
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RUN 

INTEREST IN PERCENT ? 9 

AMOUNT OF LOAN 72500 

NUMEER OF YEARS 72 

NUMBER OF PAYMENTS PER YEAR 74 


AMOUNT PER PAYMENT = 344.9617 
TOTAL INTEREST = 259.6932 


INTEREST 
56.25 
49.75399 
43.11182 
36.320 1 9 
29.37576 
22 . 27508 
15.01463 
7. 590824 
LAST PAYMENT 


APP TO PRIN 
288.71 17 
295.2077 
301 .8498 
308.6415 
315.5859 
322.6866 
329.947 
337.3708 
= 344.9608 


BALANCE 
2211. 288 
1916.081 
1614.231 
1 305. 589 
990 .0035 
667.317 
337.3699 


READY. 


As can be noticed in this example, the question mark is gram- 
matically useful in a program in which several values are to be 
input by allowing the programmer to formulate a verbal question 
which the input value will answer. 


LPT 

The LPT statement is used to generate output on the LP08 line 
printer, and is of the form: 


(line number) LPT 


By inserting this statement anywhere in a program, all subsequent 
output, with the exception of error messages, will be printed on the 
line printer. The LPT statement is particularly advantageous for 
outputting large amounts of calculated data, as can be seen from 
this and following examples : 

100 LPT 

110 FOR F=30 TO 60 STEP 3 
120 PRINT F * Ft 2 
1 30 NEXT F 
140 END 
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30 

900 

33 

1069 

36 

1296 

39 

1521 

42 

1764 

45 

2025 

48 

2304 

51 

2601 

54 

2916 

57 

3249 

60 

3600 


When the END statement is encountered in the program, the 
output device is reset to the Teletype. 

PTp 

The high-speed paper tape punch is also available as an output 
device in 8K BASIC, permitting users to save data or output files 
quickly on paper tape. When the statement is encountered, all 
output is diverted from the Teletype to the high-speed punch. Con- 
trol automatically returns to the Teletype when the END statement 
is encountered. The form is: 

(line number) PTP 

By substituting this statement in line 100 of the previous program, 
all output, with the exception of error messages, will be sent to the 
high-speed paper tape punch instead of the line printer. 

TTY IN AND TTY OUT 

The Teletype may be placed under program control so that, 
during execution of a program, I/O may be obtained or sent alter- 
nately between any available device. By issuing the statement: 

(line number) TTY IN 

control of input is returned to the Teletype if it has been previously 
set to another device. Similarly, the statement: 

(line number) TTY OUT 

returns output control to the Teletype. 
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The following program makes use of most all the available I/O 
devices. The output, with the exception of paper tape, is also 
included. 


100 LPT 

110 PRINT "FIRST DEGREE EQUATION CALCULATION" 
120 TTY IN 
130 TTY OUT 

135 PRINT "TYPE XI Y1 THEN X2 Y2" 

140 INPUT XI jYI j X2j Y2 
150 X=X2-X1 
160 Y=Y2-Y 1 
170 M=Y/X 
180 B=Y2-M*X2 
190 IF B> =0 THEN 300 
200 PRINT "Y="M"X"B 
210 LPT 

220 PRINT "Y="M"X"B 
230 GO TO 400 
300 PRINT "Y="M"X+"B 
310 LPT 

320 PRINT "Y="M"X+"B 

400 FOR Y=0 TO 10 STEP 2 

410 FOR X=0 TO 10 STEP .5 

420 LET T=M*X+B-Y 

430 IF T<>0 THEN 480 

440 PRINT XjY 

4 50 PTP 

460 PRINT X*Y 

470 LPT 

480 NEXT X 

490 NEXT Y 

500 END 

RUN 

TYPE XI Y1 THEN X2 Y2 

?-3*-4i-l>0 

Y= 2 X+ 2 

READY. 


The line printer output is the following: 

FIRST DEGREE CALCULATION 
y * 2 X ♦ 2 


0 

1 

2 

3 


2 

a 

b 

8 


a 


1 0 
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NOTE 

The Teletype low-speed reader and punch 
may be used as I/O devices at any time. No 
special statement is required. To read in data 
from the low-speed reader, position the tape 
over the sprocket wheel and set the reader to 
START when input is required. The tape 
will begin reading in. To punch a tape, set 
the low-speed punch to ON and all ouput 
will be punched on the low-speed punch. 

Using the low-speed I/O devices is, in 
effect, the same as using the Teletype key- 
board. Characters will be typed on the Tele- 
type keyboard as tapes are being read in or 
punched. 


Loops 

FOR, NEXT, AND STEP 

FOR and NEXT statements define the beginning and end of a 
loop. A loop is a set of instructions which are repeated over and 
over again, each time being modified in some way until a terminal 
condition is reached. The FOR statement is of the form: 

(line number) FOR v=xl TO x2 STEP x3 

where v represents a variable name, and xl, x2, and x3 all repre- 
sent formulas (a formula in this case means a numerical value, 
variable name, or mathematical expression), v is termed the index, 
xl the initial value, x2 the terminal value, and x3 the incremental 
value. For example : 

15 FOR K=2 TO 20 STEP 2 

This means that the loop will be repeated as long as K is less than 
or equal to 20. Each time through the loop, K is incremented by 2, 
so the loop will be repeated a total of 10 times. 

A variable used as an index in a FOR statement must not be 
subscripted, although a common use of loops is to deal with sub- 
scripted variables, using the value of the index as the subscript of 
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a previously defined variable (this is illustrated in the section con- 
cerning Subscripted Variables). 

The NEXT statement is of the form: 

(line number) NEXT 

and signals the end of the loop. When execution of the loop reaches 
the NEXT statement, the computer adds the STEP value to the 
index and checks to see if the index is less than or equal to the 
terminal value. If so, the loop is executed again. If the value of 
the index exceeds the terminal value, control falls through the loop 
to the following statement, with the value of the index equaling the 
value it was assigned the final time through the loop. 3 

If the STEP value is omitted, a value of +1 is assumed. Since 
+ 1 is the usual STEP value, that portion of the statement is fre- 
quently omitted. The STEP value may also be a negative number. 

The following example illustrates the use of loops. This loop is 
executed 10 times: the value of I is 10 when control leaves the 
loop. + 1 is the assumed STEP value. 

10 FOR 1=1 TO 10 
20 NEXT I 
30 PRINT I 
40 END 


RUN 

10 

READY. 

If line 10 had been: 

10 FOR 1=10 TO 1 STEP -1 

the value printed by the computer would be 1 . 

As indicated earlier, the numbers used in the FOR statement 

3 The user should note that this method of handling loops varies among 
different versions of BASIC. 
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are formulas; these formulas are evaluated upon first encountering 
the loop. While the index, initial, terminal and STEP values may 
be changed within the loop, the value assigned to the initial formula 
remains as originally defined until the terminal condition is reached. 
To illustrate this point, consider the last example program. The 
value of I (in line 10) can be successfully changed as follows: 


10 FOR 1=1 TO 10 
15 LET 1=10 
20 NEXT I 


The loop will only be executed once since the value 10 has been 
reached by the variable I and the terminal condition is satisfied. 

If the value of the counter variable is originally set equal to the 
terminal value, the loop will execute once, regardless of the STEP 
value. If the starting value is beyond the terminal value, the loop 
will also execute only once. 

It is possible to exit from a FOR-NEXT loop without the index 
reaching the terminal value. (This is known as a conditional trans- 
fer and is explained in the section entitled Transfer of Control 
Statements. ) Control may only transfer into a loop which has been 
left earlier without being completed, ensuring that the terminal 
and STEP values are assigned. 

Nesting Loops 

It is often useful to have one or more loops within a loop. This 
technique is called nesting, and is allowed as long as the field of 
one loop (the numbered lines from the FOR statement to the cor- 
responding NEXT statement, inclusive) does not cross the field of 
another loop. A diagram is the best way to illustrate acceptable 
nesting procedures : 


24 



ACCEPTABLE NESTING 
TECHNIQUES 

Two Level Nesting 

r-FOR 

rFOR 

Lnext 

rFOR 

•-NEXT 

L-next 

Three Level Nesting 

— FOR 
r FOR 
rFOR 

Lnext 

rFOR 

Lnext 

•-NEXT 
— NEXT 


UNACCEPTABLE NESTING 
TECHNIQUES 


rFOR 

rFOR 

Lnext 

L-next 


— FOR 
r-FOR 
rFOR 

Lnext 

rFOR 

L-next 

Lnext 

— NEXT 


A maximum of eight(8) levels of nesting is permitted. Exceeding 
that limit will result in the error message: 


FOR ERROR AT LINE XXXX 


where XXXX is the number of the line in which the error occurred. 

Subscripted Variables 

In addition to single variable names, BASIC accepts another 
class of variables called subscripted variables. Subscripted variables 
provide the programmer with additional computing capabilities for 
handling lists, tables, matrices, or any set of related variables. 
Variables are allowed one or two subscripts. A single letter forms 
the name of the variable; this is followed by one or two integers 
in parentheses and separated by commas, indicating the place of 
that variable in the list. Up to 26 arrays are possible in any pro- 
gram (corresponding to the letters of the alphabet), subject only 
to the amount of core space available for data storage. For ex- 
ample, a list might be described as A (I) where I goes from 1 to 5, 
as follows : 
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AC1),AC2),AC3),AC4),AC5) 


This allows the programmer to reference each of the five elements 
in the list A. A two dimensional matrix A (I, J) can be defined in a 
similar manner, but the subscripted variable A can only be used 
once (i.e., A (I) and A(I,J) cannot be used in the same program). 
It is possible however, to use the same variable name as both a 
subscripted and an unsubscripted variable. Both A and A (I) are 
valid variable names and can be used in the same program. 

Subscripted variables allow data to be input quickly and easily, 
as illustrated in the following program (the index of the FOR state- 
ment in lines 20, 42, and 44 is used as the subscript) : 


10 REM - PROGRAM DEMONSTRATING READING 

11 REM - OF SUBSCRIPTED VARIABLES 
15 DIM AC5),BC2,3) 

18 PRINT "A ( I ) WHERE A=1 TO 5;" 

20 FOR 1=1 TO 5 
2 5 READ AC I) 

30 PRINT AC I ) J 
35 NEXT I 

38 PRINT 

39 PRINT 

40 PRINT "B C I , J) WHERE 1 = 1 TO 2:” 

41 PRINT ” AND J=1 TO 3:" 

42 FOR 1=1 TO 2 

43 PRINT 

44 FOR J=1 TO 3 
4 8 READ B C I > J) 

50 PRINT B C I , J) .» 

55 NEXT J 

56 NEXT I 

60 DATA 1,2*3, 4, 5, 6, 7,8 

61 DATA 8, 7, 6, 5,4, 3, 2, 1 
6 5 END 


RUN 

AC I ) WHERE A= 1 TO 5; 

1 2 3 4 5 

BC I, J) WHERE 1=1 TO 2: 

AND J=1 TO 3: 

6 7 8 

8 7 6 

READY. 
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DIM 

From the preceding example, it can be seen that the use of sub- 
scripts requires a dimension (DIM) statement to define the max- 
imum number of elements in the array. The DIM statement is of 
the form: 


(line number) DIM Vi (ni), v 2 (n 2 , m 2 ) 

* 

where v indicates an array variable name and n and m are integer 
numbers indicating the largest subscript value required during the 
program. For example: 

1 5 DIM A ( 6* 1 0 ) 

The first element of every array is automatically assumed to have 
a subscript of zero. Dimensioning A (6, 10) sets up room for an 
array with 7 rows and 1 1 columns. This matrix can be thought of 
as existing in the following form: 


A 0 ,o 

A 0) i 

• Ao^o 

Ai i0 

A 3) i 

Ai.io 

A 2t y 

A 2 ,i . 

• A 2i io 

Ae.o 

Ae,i 

Ae.io 


and is illustrated in the following program : 
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10 REM - MATRIX CHECK PROGRAM 
1 5 DIM A<6* 10 ) 

20 FOR 1=0 TO 6 
22 LET AC 1,0 ) = I 
25 FOR J=0 TO 10 
28 LET A(0j J)=J 
30 PRINT ACI,J>; 

35 NEXT J 
40 PRINT 
45 NEXT I 
50 END 


RUN 
0 1 
1 0 
2 0 

3 0 

4 0 

5 0 

6 0 


2 3 4 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 


5 6 7 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 


8 9 10 

0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 


READY. 


Notice that a variable assumes a value of zero until another value 
has been assigned. If the user wishes to conserve core space by not 
making use of the extra variables set up within the array, he should 
set his DIM statement to one less than necessary, DIM A(5,9). 
This results in a 6 by 10 array which may then be referenced be- 
ginning with the A (0, 0) element. 

More than one array can be defined in a single DIM statement: 


10 DIM A C 20 ) y B C 4 j 7 ) 


This dimensions both the list A and the matrix B. 

A number must be used to define the maximum size of the array. 
A variable inside the parentheses is not acceptable and will result 
in an error message by BASIC at run time. The amount of user 
core not filled by the program will determine the amount of data 
the computer can accept as input to the program at any one time. 
In some programs a TOO-BIG ERROR may occur, indicating 
that core will not hold an array of the size requested. In that event, 
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the user should change his program to process part of the data in 
one run and the rest later. 

Transfer of Control Statements 

Certain control statements cause the execution of a program to 
jump to a different line either unconditionally or depending upon 
some condition within the program. Looping is one method of 
jumping to a designated point until a condition is met. The follow- 
ing statements give the programmer added capabilities in this area. 

UNCONDITIONAL TRANSFER— GOTO 

The GOTO (or GO TO) statement is an unconditional state- 
ment used to direct program control either forward or back in a 
program. The form of the GOTO statement is: 

(line number) GOTO n 

where n represents a statement number. When the logic of the 
program reaches the GOTO statement, the statement (s) immedi- 
ately following will not be executed; instead execution is transferred 
to the statement beginning with the line number indicated. 

The following program never ends; it does a READ, prints 
something, and jumps back to the READ via a GOTO statement. 
It attempts to do this over and over until it runs out of data, which 
is sometimes an acceptable, though not advisable, way to end a 
program. 

10 REM - PROGRAM ENDING WITH ERROR 

1 1 REM - MESSAGE WHEN OUT OF DATA 
20 READ X 

25 PRINT ”X= ,, X^ ,, Xt2 = ,, XT2 
30 GO TO 20 

35 DATA 1 ,5, 10, 1 5,20,25 
40 END 


RUN 
X= 1 
X= 5 
X= 10 
X= 15 
X = 20 
X= 25 

DATA ERROR AT LINE 20 


XT 2= 1 
XT 2= 25 
XT 2= 100 
XT 2 = 225 
Xt 2= 400 
XT 2 = 625 
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CONDITIONAL TRANSFER— IF-THEN AND IF-GOTO 

If a program requires that two values be compared at some 
point, control of program execution may be directed to different 
procedures depending upon the result of the comparison. In com- 
puting, values are logically tested to see whether they are equal, 
greater than, less than another value, or possibly a combination of 
the three. This is accomplished by use of the relational operators 
discussed earlier. 

IF-THEN and IF-GOTO statements allow the programmer to 
test the relationship between two formulas (variables, numbers, or 
expressions). Providing the relationship described in the IF state- 
ment is true at the point it is tested, control will transfer to the 
line number specified, or perform the indicated operation. The 
statements are of the form: 

(line number) IF vl <relation> v2 Ijjjen}* or expression 

where vl and v2 represent variable names or expressions, x repre- 
sents a line number, and expression represents an operation to be 
performed. The use of either THEN or GOTO is acceptable. 

The following two examples are equivalent (the value of the 
variable A is changed or remains the same depending upon A’s 
relation to B) : 


100 IF A>B THEN 120 
110 A=A t B - 1 
120 C=A/D 


100 IF A<=B THEN A=A t B- 1 
110 C=A/D 


Subroutines 

GOSUB AND RETURN 

A subroutine is a section of code performing some operation 
that is required at more than one point in the program. Often a 
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complicated I/O operation for a volume of data, a mathematical 
evaluation which is too complex for a user-defined function, or any 
number of other processes may best be performed in a subroutine. 

Subroutines are generally placed physically at the end of a pro- 
gram, usually before DATA statements, if any, and always before 
the END statement. Two statements are used exclusively in 
BASIC to handle subroutines; these are the GOSUB and RETURN 
statements. 

A program begins execution and continues until it encounters a 
GOSUB statement of the form: 

(line number) GOSUB x 

where x represents the first line number of the subroutine. Control 
then transfers to that line. For example: 


50 GOSUP 200 


When program execution reaches line 50, control transfers to line 
200; the subroutine is processed until execution encounters a RE- 
TURN statement of the form : 

(line number) RETURN 

which causes control to return to the statement following the 
GOSUB statement. Before transferring to the subroutine, BASIC 
internally records the next statement to be processed after the 
GOSUB statement; thus the RETURN statement is a signal to 
transfer control to this statement. In this way, no matter how many 
ditferent subroutines are called, or how many times they are used, 
BASIC always knows where to go next. 

The following program demonstrates a simple subroutine: 
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1 REM - THIS PROGRAM ILLUSTRATES GOSUB AND RETURN 
10 DEF FN A ( X ) = AB SCINTCX)) 

20 INPUT A^BjC 
30 GOSUB 100 
40 LET A=FNA(A) 

50 LET B=FNA (B ) 

60 LET C=FNA(C) 

70 PRINT 
80 GOSUB 100 
90 STOP 

100 REM - THIS SUBROUTINE PRINTS OUT THE SOLUTIONS 
110 REM - OF THE EQUATION: A(Xt2) + BCX) + C = 0 
120 PRINT "THE EQUATION IS ”A"*Xt2 + "B"*X + "C 

130 LET D=B*B-4*A*C 
140 IF D<>0 THEN 170 

150 PRINT "ONLY. ONE SOLUTION X ="-B/C2*A) 

160 RETURN 

170 IF D<0 THEN 200. 

180 PRINT "TWO SOLUTIONS... X ="; 

185 PRINT C-B+SQRCD) ) / ( 2*A ) "AND X ="C-B-SQR(D) ) / ( 2*A ) 
190 RETURN 

200 PRINT "IMAGINARY SOLUTIONS... X = ("J 
205 PRINT -B/C2*A)"*"SQRC-D)/C2*A) M ) ’ AND ("; 

207 PRINT -B/(2*A)".» "-SQR C -D ) / ( 2* A ) " )" 

210 RETURN 
900 END 


RUN 

?1 > . 5 j — *5 

THE EQUATION IS 1 *Xt2 + . 5 *X -+ -.5 

TWO SOLUTIONS... X = .5 A&D X = -l 

THE EQUATION IS 1 *X*2 + 0 *X + 1 

IMAGINARY SOLUTIONS... X = ( 0 , 1 ) AND, ( 0 - 1 ) 

READY. 

Line 100 begins the subroutine. There are several places in which 
control may return to the main program, depending upon a certain, 
condition being satisfied. The subroutine is executed frorfi line 30 
and again from line 80. When control returns to line 90, the pro- 
gram encounters the STOP statement and execution is terminated. 

It is important to remember that subroutines should generally 
be kept distinct from the main program. The last statement in the 
main program should be a STOP or GOTO statement, and sub- 
routines are normally placed following this statement. 
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More than one subroutine may be used in a single program, in 
which case these can be placed one after another at the end of the 
program (in line number sequence). A useful practice is to assign 
distinctive line numbers to subroutines. For example, if the main 
program is numbered with line numbers up to 199, 200 and 300 
could be used as the first numbers of two subroutines. 

Nesting Subroutines 

Nesting of subroutines occurs when one subroutine calls an- 
other subroutine. If a RETURN statement is encountered during 
execution of a subroutine, control Teturns to the statement follow- 
ing the GOSUB which called it. From this point, it is possible to 
transfer to the beginning or any part of a subroutine, even back to 
the calling subroutine. Multiple entry points and RETURN state- 
ments make subroutines more versatile. 

The maximum level of GOSUB nesting is about thirty-three (33) 
levels, which should prove more than adequate for all normal uses. 
Exceeding this limit will result in the message: 


GOSUB ERROR AT LINE XXXX 


where XXXX represents the line number where the error occurred. 
An example of GOSUB nesting follows (execution has been stopped 
by typing a CTRL/C, as the program would otherwise continue in 
an infinite loop; see Stopping a Run.) 
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10 REM FACTORIAL PROGRAM USING GOSUB TO 

15 REM RECURSIVELY GOMPUTE THE FACTORS 

40 INPUT N 

50 IF N> 20 THEN 120 

60 X=1 

70 K= 1 

80 GOSUB 200 

90 PRINT "FACTOR I AL”N” ="X 
110 GO TO 40 

120 PRINT "MUST BE 20 OR LESS" 

130 GO TO 40 
200 X=X*K 
210 K=K+1 

220 IF K<=N THEN GOSUB 20:0 
230 RETURN 
240 END 


RUN 

?2 

FACTORIAL 2 =2 

?4 

FACTORIAL 4 =24 

? 5 

FACTORIAL 5 =120 

7 

STOP. 

READY. 


Functions 

BASIC performs several mathematical calculations for the pro- 
grammer, eliminating the need for tables of trig functions, square 
roots, and logarithms. These functions have a three letter call 
name, followed by an argument, x, which can be a number, vari- 
able, expression, or another, function. Table 1 lists the func- 
tions available in 8K BASIC. Most are self-explanatory; those 
that are not and are provided in greater detail are marked with 
asterisks. 


Table 1 8K BASIC Functions 

Function Meaning 

SIN(x) Sine of x (x is expressed in radians) 

COS(x) Cosine of x (x is expressed in radians) 
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Table 1 

8K BASIC Functions (Cont.) 

Function 

Meaning 

TAN(x) 

Tangent of x (x is expressed in radians) 

ATN(x) 

Arctangent of x (result is expressed in 
radians) 

EXP(x) 

e x (e=2. 718282) 

LOG(x) 

Natural log of x (log e x) 

*SGN(x) 

Sign of x — assign a value of +1 if x is posi- 
tive, 0 if x is zero, or —1 if x is negative 

*INT(x) 

Integer value of x 

ABS(x) 

Absolute value of x ( x| ) 

SQR(x) 

Square root of x (/x) 

*RND(x) 

Random number 

*TAB(x) 

Print next character at space x 

*GET(x) 

Get a character from input device 

*PUT(x) 

Put a character on output device 

*FNA(x) 

User-defined function 

*UUF(x) 

User-coded function (machine language 
code) 


SIGN FUNCTION— SGN(X) 

The sign function returns the value +1 if x is a positive value, 
0 if x is zero, and —1 if x is negative. For example, SGN(3.42)=1, 
SGN(— 42)=— 1, and SGN(23-23)=0. The following example 
in which X is assigned the sign of y illustrates the use of this 
function: 

25 X=SQRCAt 2+2*BC )*SGN CA ) 

INTEGER FUNCTION— INT(X) 

The integer function returns the value of the nearest integer not 
greater than x. For example, INT(34.67)=34. By specifying 
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INT(x+.5) the INT function can be used to round numbers to 
the nearest integer; thus, INT(34.67+.5)=35. INT can also be 
used to round numbers to any given decimal place by specifying: 

INT (x*10tD+.5)/10tD 

where D is the number of decimal places desired. The following 
program illustrates this function; execution has been stopped by 
typing a CTRL/C: 


10 REM - INT FUNCTION EXAMPLE 
20 PRINT "NUMBER TO BE ROUNDED"; 
30 INPUT A 

40 PRINT "NO. OF DECIMAL PLACES"; 
50 INPUT D 

60 LET B= INT(A*10 TD+. 5 )/10 TD 
70 PRINT "A ROUNDED = "B 
80 GO TO 20 
90 END 


RUN 

NUMBER TO BE ROUNDED ? 55 . 65342 

NO. OF DECIMAL PLACES ?2 

A ROUNDED = 55.65 

NUMBER TO BE ROUNDED ?78 . 3 7 5 

NO. OF DECIMAL PLACES7-2 

A ROUNDED = 100 

NUMBER TO BE ROUNDED767 • 89 

NO. OF DECIMAL PLACES?- 1 

A ROUNDED = 70 

NUMBER TO BE ROUNDED? 

STOP. 

READY. 


If the argument is a negative number, the value returned is the 
largest negative integer (rounded to the higher value) contained in 
the number. For example, INT(— 23)=— 23 butINT(— 14.39)=— 15. 

RANDOM NUMBER FUNCTION— RND(X) 

The random number function produces a random number be- 
tween 0 and 1. The numbers are not reproducible, a fact the 
programmer should keep in mind when debugging or checking his 
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program. The argument x in the RND(x) function call can be any 
number, as that value is ignored. The following program illustrates 
the use of this function to generate a table of random numbers: 


10 REM - RANDOM NUMBER EXAMPLE 
25 PRINT "RANDOM NUMBERS" 

30 FOR 1=1 TO 30 
40 PRINT RND (0 ) > 

50 NEXT I 
60 END 


RUN 

RANDOM NUMBERS 


.9547609 

.2890875 

. 1416765 

.248271 7 

.2145417 

.0 5280478 

. 3859534 

. 8404774 

. 5692836 

. 8514056 

. 9848808 

. 2466345 

.61588 

.4755698 

.3104984 

•5828625 

. 7026891 

. 970371 9 

.4980298 

.254831 6 

.04672124 

. 9868434 

. 5005693 

.1218251 

.2258269 

.2585353 

. 5187701 

.7858024 

.04588368 

.20 30 80 7 


READY. 


It is possible to generate random numbers over any range by 
using the following formula: 

(B— A)*RND(0)+A 

This produces a random number (n) in the range A<n<B. 

In order to obtain random integer digits in the range 0< = n<9, 
line 40 in the previous example is changed to read: 

40 PRINT INTC9*RNDC0 ) ) , 

When the program is run again, the results will look as follows: 

RANDOM NUMBERS 
8 8 

3 0 

8 3 

2 2 

7 6 

2 0 

READY. 

Notice that the range has changed to 0< = n<9. This is because 
the INT function returns the value of the nearest integer not greater 
than n. 

TAB FUNCTION 

The TAB function allows the user to position the printing of 
characters anywhere on the Teletype (or line printer) line. Print 
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positions can be thought of as being numbered from 1 to 72 
across the Teletype from left to right. (For printing devices with 
long lines, the number of positions may be as large as 255, but it 
is unlikely that more than 160 spaces will be required for most 
printers.) The form of this function is: 

TAB (n) 

where the argument n represents the position (from 1 to the total 
number of spaces available) in which the next character will be 
typed. 

Each time the TAB function is used, positions are counted from 
the beginning of the line, not from the current position of the 
printing head. For example, TAB(3) causes the character to be 
printed at position 3; the following statement: 


10 PRINT "X = m ;TAB(3); ,, / ,, ;3. 14159 


will print the slash on top of the equal sign, as shown below: 

X * 3.14159 
READY. 

The following is an example of the sort of graph that can be 
drawn with BASIC using the TAB function: 
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30 FOR X=0 TO 15 STEP .5 
40 PRINT TABC30 + 1 5*SIN(X)*EXP C-. 1*X) 
50 NEXT X 
60 END 


RUN 



READY. 

PUT AND GET FUNCTIONS 

8K BASIC provides two additional functions, PUT and GET, 
to increase input/output flexibility. Using these statements, the 
programmer can “PUT” an ASCII character on the current output 
device, or “GET” a character from the current input device. GET 
is of the form: 


GET (x) 
39 



where the argument x is a dummy variable which may be any 
value. GET (x) will be assigned the decimal value of the ASCII 
code of the next character input on the current input device. 

For example, if the following statement appears in a program: 

10 LET L=GET ( X ) 

and the next character input is an M, the variable L will be as- 
signed the value 77 (10) . 

PUT is of the form : 


PUT (x) 

where the argument x represents the decimal value of the ASCII 
code of the character to be output. For example, the statement: 


15 L=PUT (GET (V) ) 


will wait for a character to be read from the current input device 
and then print it on the current output device. A statement such as: 


30 PRINT PUT ( Q ) 


will print the character typed as well as the decimal value of the 
ASCII code for that character. To get 10 characters from a paper 
tape and print them on the line printer, a suitable program is: 


100 LPT 
1 10 PTR 

120 FOR A=1 TO 10 
130 LET B=PUT (GET (0 ) ) 

1 40 NEXT A 
1 50 END 

The GET(O) will contain the most recently obtained character 
which is then “PUT” to the line printer. The user should be careful 
to position the tape on the first character to be input. Otherwise 
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blank tape may be entered, resulting in spaces being printed as 
output. 

The PUT statement can also be used to format output. For ex- 
ample, to print a trig table on the line printer with a heading and 
50 data lines per page, the line feed character (12 ( n,j) can be 
“PUT” to the printer as follows: 


100 LPT 

1 10 GOSUB 1000 
120 GOSUB 500 

125 REM - SET UP TRIG TABLE 
130 FOR J=0 TO 360 STEP .5 
1 40 LET L=L+ 1 
1 50 LET B = J/1 80 * 3 • 1 4 

160 PRINT JjSIN(B)jCOSCB)^ TAN (B ) .> ATN CB ) 

165 REM - PRINT 50 ENTRIES IN TABLE 

170 IF L= 50 THEN GOSUB 500 

180 NEXT J 

190 GOSUB 1000 

200 GOSUB 1000 

210 STOP 

500 REM PRINT HEADER 
505 GOSUB 1000 
510 PRINT 
520 PRINT 

5 30 PRINT " ANGLE" j"SINE".»"COSINE".> "TANGENT" > "ARCTANGENT” 
5 40 PRINT 
550 RETURN 

1000 REM PRINT FORM FEEDS TO ADVANCE PAPER 
1005 X=PUT C 1 2 ) 

1010 L=0 
1020 RETURN 
1030 END 


The beginning of the line printer output from this program follows. 
The first page of the table continues through an angle of 24.5 de- 
grees: then the header and the next 50 entries are printed on the 
next page, and so on until the values have been output for all an- 
gles through 360 degrees (in steps of .5). 
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INGLE 

SINE 

COSINE 

TANGENT 

arctangent 

0 

0 

1 

2 

2 

.5 

8.722H2E-03 

.999962 

8 , 7224446-03 

8. 7222016-03 

1 

.01744356 

.9998479 

,01744621 

.01744268 

1.5 

.02616368 

.9996577 

.02617264 

.0261607 

2 

.03488181 

.9993915 

.03490305 

.0348/474 

2.5 

.04359729 

.9990492 

,04363878 

.0435835 

3 

.0523094S 

.9986309 

.05238116 

.05228564 

3.5 

.06101763 

.9981367 

.26113154 

.06097986 

4 

,0b972117 

.9975665 

.06989125 

.06966486 

4.5 

.0784194 

.9969205 

.07866164 

.07833935 

5 

.08711167 

.9961986 

.08744408 

,06700204 

5.5 

.09579731 

.9954009 

.29623993 

.09565166 

6 

.1044757 

.9945274 

.1050506 

.1042869 

6.5 

.1131461 

.9935784 

.1138774 

,1129067 

7 

.1218079 

.9925537 

. 1227217 

.1215095 

7.5 

• 

.1304604 

.9914535 

.131585 

. 1 300944 

• 

• 

24 

,4065426 

,9136318 

.4449743 

.396494 

24,5 

.414496 

.9120512 

.4554645 

,4038923 


The GET statement cannot be used to get binary characters. 
FNA FUNCTION 

In some programs it may be necessary to execute the same 
mathematical formula in several different places. 8K BASIC al- 
lows the programmer to define his own function in the BASIC 
language and then call this function in the same manner as the 
square root or a trig function is called. Only one such user- 
defined function may be included per program. The function is 
defined once at the beginning of the program before its first use, 
and consists of a DEF statement in combination with a three- 
letter function name, the first two letters of which must be FN. 
The format of the defining statement is as follows: 

(line number) DEF FNA(x)=formula(x) 

A may be any letter. The argument (x) has no significance; it is 
strictly a dummy variable, but must be the same on each side of 
the equal sign. The function itself can be defined in terms of num- 
bers, several variables, other functions, or mathematical expres- 
sions. For example: 

10 DEF FNACX)=XT 2+3*X+4 

or 

20 DEF FNCCX)=SQRCX+4)+l 
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The function: 


10 DEF FNA ( S ) = S f 2 


will cause the later statement: 

20 LET R=FNA(4)+1 

to be evaluated as R=17. 

The user-defined function can be a function of only one vari- 
able. 

USER-DEFINED FUNCTION -UUF 

A special user-coded function is available for the programmer 
who wishes to define an additional 8K BASIC function perma- 
nently or one which cannot be defined with one BASIC expres- 
sion, as an FNA function must be. The UUF function routine is 
coded in PDP-8 assembly language, assembled with one of the 
available assemblers, and loaded as an overlay to 8K BASIC. 
While 8K BASIC is running, the special function can be used in 
a fashion analogous to the regular 8K BASIC functions. The user- 
coded function, if present, is referenced in the BASIC program as: 

UUF(n) 

where n can be any BASIC expression. 

The programmer who defines the UUF function should be familiar 
with the information on assembly language programming which 
is in Introduction to Programming 1972 chapters 1-5, and the 
material on the Floating Point Package, chapter 8. He should also 
be familiar with the information on the assembler he intends to 
use by reading the appropriate manual. 

Coding Formats 

8K BASIC uses a floating point package which has been modi- 
fied to allow 27-bit, sign-magnitude mantissa floating point. In 
sign-magnitude convention the sign bit, rather than the mantissa, 
expresses the sign of the entire number. This format is described 
more fully below. All coding must be compatible with this format. 
The floating point instructions are discussed later in this manual. 
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Upon entrance to the UUF subroutine the value of the argu- 
ment is in the FAC (floating accumulator). The value which is 
calculated for the function must be in the FAC in normalized 
form on exit. 

When floating point statements are to be included in the pro- 
gram, the start of a series of floating point instructions must be 
indicated by the instruction: 

FENTER 

immediately before the first floating point instructions. Each series 
of floating point instructions is terminated by the instruction: 

FEXIT 

immediately after the last floating point statement. There can be 
as many sections of floating point code as necessary in the pro- 
gram, but each must be delimited in this manner. 

Floating-Point Format 

The floating-point format used by 8K BASIC allocates three 
storage words to each number as follows: 


WORD 1 WORD 2 WORD 3 


□ 






















1 

1 
















1 v v ^ ! 


EXPONENT MANTISSA 


1 — SIGN BIT 


The FAC occupies five locations on page 0: 


Contents 

Sign 

Exponent (200 8 biased) 
High-order word 
Mid-order word 


Location Name 


ACS 

ACE 

AC1 

AC2 

AC3 


Location Number 


0024 

0025 
0020 
0017 
0016 


Low-order word 


The constant 200 8 is added to the exponent to make its range 
0 to 377. 

All of BASIC’s mathematical operations are in floating point 
format. Therefore, if any temporary storage locations are to be 
used, they will require three words, for example: 
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utemp,0;0;0 


Addressing 

The floating point package uses only relative addressing. There- 
fore all statements that require an address specification must in- 
clude one of the operators FWD or BKWD plus a reference to 
the current location. Such a reference is generally of the form : 

instructionTFWD+CffeMP— . 

qj. v'.f \£*<X. r i »*•■' • 

instructionFBKWD+'I-dLTEMP 


where LTEMP is the first of the three locations containing the 
number to be used. The operator FWD is used when the address 
of the location to be referenced is numerically greater than the ad- 
dress of the instruction; BKWD is used when the address of the 
location to be referenced is numerically less than the address of the 
instruction. The floating point interpreter uses the number of 
locations between the instruction and the data to locate the data. 
The location referenced must be within 200 8 locations of the 
instruction. 

The following two examples cause the contents of LTEMP to 
be added to the contents of the FAC, and the result left in the 
FAC: 


00200 4210 


FAD+FWD+ LTEMP- . 


00210 0000 LTEMP 0 

00211 0000 0 

00212 0000 0 

or 


00200 0000 LTEMP 0 

00201 0000 0 

00202 0000 0 


00210 4610 FAD+BKWD+. -LTEMP 

Floating-Point Instruction Set 

The legal instructions in the modified Floating-Point Package 
used by 8K BASIC are explained in Table 2: 
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Table 2 

Floating-Point Instructions 

Instruction 

Value 

Meaning 

FST 

2000 

Store the contents of the floating accu- 
mulator (FAC). The contents of the 
FAC are not changed. 

FLD 

3000 

Load FAC with contents of relative 
address. 

FAD 

4000 

Add contents of relative address to 
FAC. 

FSB 

5000 

Subtract contents of relative address 
from FAC. 

FMP 

6000 

Multiply the contents of the FAC by 
the contents of the relative address. 

FDV 

7000 

Divide FAC by contents of relative 
address. 

FJMP 

1000 

Floating-point jump to relative ad- 
dress. 

FENTER 

4435 

Start floating-point code. 

FEXIT 

0000 

Exit floating-point code. Return to 
PDP-8 code. 

FWD 

0200 

Access a relative location in the for- 
ward direction. 

BKWD 

0600 

Access a relative location in the back- 
ward direction. 

FSNE 

0040 

Skip if FAC / 0 

FSEQ 

0050 

Skip if FAC = 0 

FSGE 

0100 

Skip if FAC ^ 0 

FSLT 

0110 

Skip if FAC < 0 

FSGT 

0140 

Skip if FAC > 0 

FSLE 

0150 

Skip if FAC ^ 0 


46 






The following list contains floating-point instructions for in- 
direct relative addressing. The indirect addressing is similar to the 
I construction used in regular PDP-8 assembly language coding. 


Floating-Point Instructions (Indirect Relative Addressing) 


Instruction 

Value 

Operation 

FSTI 

2400 

Store 

FLDI 

3400 

Load 

FADI 

4400 

Add 

FSBI 

5400 

Subtract 

FMPI 

6400 

Multiply 

FDVI 

7400 

Divide 

FJMPI 

1400 

Jump 

Writing the Program 




UUF must be made a defined function for 8K BASIC. This is 
done by inserting the starting address of the UUF subroutine in 
BASIC’s table of subroutine addresses. The subroutine address 
must be placed in location 1156 of field 0. If UUF is the first 
location of the subroutine, the following code is sufficient: 

*1156 

UUF 

The UUF subroutine may be placed in the area of core nor- 
mally occupied by the RIM and BIN loaders, location 7600-7777 
of field 0. To do this, the loaders are placed in field 1. The loading 
instructions for UUF are contained in the section called Loading 
and Operating Procedures. 

If mass storage devices are in use, they may destroy the data 
break locations on the last page of field 0. If TC08 DECtape 
is used, locations 7752 and 7753 must be reserved. If an RF08 
or DF32 disk is used, locations 7750 and 7751 must be reserved. 

There are three subroutines in 8K BASIC which are available 
to maintain a floating-point format acceptable to the modified 
floating-point package in 8K BASIC. These subroutines are de- 
scribed below. The listing of 8K BASIC is available from the 
Software Distribution Center for the programmer who wishes to 
call other subroutines in the compiler. 
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BEGFIX 


If a value is to be returned to the FAC as a result 
of the UUF function, that value must be in nor- 
malized floating point format in the FAC on exit 
from the subroutine. If floating point arithmetic is 
used throughout the user function, then the value 
in the FAC is in normalized floating point format 
and need not be converted. If fixed point arithmetic 
(single word) is used anywhere in the function, 
then the subroutine BEGFIX must be called to 
initialize the FAC before the fixed point number 
is placed in the FAC and subsequently converted 
to floating point (see ANORM below). After 
BEGFIX is called, the 12-bit number is stored by 
a simple DC A AC 3 instruction and then ANORM 
is called. BEGFIX is located at 3762 and is called 
with a JMS instruction; on return from BEGFIX 
the AC is clear. 

ANORM If a fixed point value is placed in the FAC, 
ANORM may be called to normalize the FAC. 
After the fixed point value has been placed in AC3, 
ANORM may be called to supply the acceptable 
values for ACE, ACS, AC1, and AC2. ANORM is 
located at 4600; on return, the AC is clear. 

FIX When the value in the FAC must be made into an 

integer, FIX may be called to perfom that job. The 
12-bit value of the FAC is left in AC3 and that 
value plus 1 is left in the AC. FIX is located at 
4744. 


Examples 

The following examples illustrate the method of writing and 
calling a UUF routine. 

Example 1: 

This UUF routine is an example of a fixed point calculation. 
The value of UUF(X) is 3X+2. 
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/UUF CX) »3X*2 


PALS-V'T 


PAGE 1 


/UUF CX) »3X*2 

/ENTER WITH X IN FAC 

/EXIT WITH UUF (X ) IN FAC 

/USE FIXED POINT ARITHMETIC f- 

001b AC3* lb 
u?44 Fix«4744 

3762 BEGFIXb 3762 
460p ANORM«4600 

0000 FIELD 0 



1156 

*1156 



01156 

7 6 00 


UUF 



7600 

*7600 


S-i PP£ 

07600 

0000 

UUF, 

0 

■C 

07601 

4623 


JM$ I I F I X 

/MAKE t A 12-BIT INTEGER- 

07602 

7200 


CLA 

/Set AC? & 

07603 

3222 


DC A ANSWER 

/Set AH£ - r < : ■& 

07604 

4215 


JMS LOOP 

/MULTIPLY X BY 3 

07605 

4215 


JMS LOOP 


07606 

4215 


JMS LOOP 


07607 

4624 


JMS I IBEG 


07610 

7326 


CLA r.LL CML RTL 

/SET AC ■ 2 

07611 

1222 


TAD ANSWER 

/FETCH 3 X 

07612 

3016 


DC A AC3 

/RETURN 3X*2 TO FAC 

07613 

4625 


JMS I INORM 

/NORMALIZE 

07614 

5600 


JMP I UUF 

/ — RETURN — 

07613 

0000 

LOOP, 

0 

/ADO AC 3 TO ACCUMULATED SUM 

07616 

1222 


TAD ANSWER 

07617 

1016 


TAD AC3 


07620 

3222 


DC A ANSWER 

' s '■ ' v: - ■ ■■' 

07621 

5615 


JMP I LOOP 

/--RETURN-- 

07622 

0300 

ANSWER, 

0 


07623 

4744 

IF I X , 

FIX 


07624 

3762 

IBEG, 

BEGFIX 


07625 

4600 

INORM, 

ANORM 



S 


The following BASIC program calls UUF(X) to print X and 
3X+2 for a number of values of X: 


READY. 


100 FOR X = - 3 TO 3 STEP .S 
1 10 PRINT X, UUFC X) 

120 NEXT X 
130 END 
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RU'M 

-3 11 

- 2.5 11 

-2 3 

- 1.5 3 

- 1 5 

-.5 5 

"0 2 

. 5 2 

1 5 

1.5 5 

2 3 

2 . 5 8 

3 1 1 


READY. 


Example 2: 

This UUF routine is an example of a floating point calculation. 
Like example 1, this routine returns a value of UUF(X)=3X+2. 


/UUF CX) «3X*2 


PAL8*V7 5/25/72 PAGE 1 


/UUF(XJ s3X*2 

/ENTER WITH X IN FAC 

/EXIT WITH UUFCX) IN FAC 

/USE FLOATING POINT ARITHMETIC 



4435 

FENTER«4435 




2000 

FST*2000 




0200 

FWD«200 





0000 

F E X I T s 0000 




6200 

FMPB6000 




4000 

F AD*4000 




0016 

AC3* 1 6 





3762 

BEGFIXS3762 




4600 

AN0RM«46 00 




0000 

FIELD 0 





1156 

*1156 




01156 

7600 


UUF 




7600 

• 7600 




07600 

0000 

UUF, 

0 

* r. 


07601 

4435 


FEN TER 

. V: t - 


07602 

2216 


FST+FWD+X-, 

/STORE X FROM FAC INTO 

07603 

0000 


FEXIT J ‘ r >' 



0760a 

7325 


CLA CLL CML 

I AC RAL /SET 

AC * 3 

07605 

4224 


JMS FLOAT /GET A FLOATING POINT 3 IN 

07606 

4435 


FENTER 4? 

i f.V l -' i 


07607 

621 1 


FMp*FWD*X», 

/MULTIPLY X 

BY 3 

07610 

2210 


FST*FWD*X- t 

/SAVE IT FOR 

LATER 

0761 1 

0000 


FEXIT 



07612 

7326 


CLA CLL CML 

RTL /GET A 2 IN 

THE FAC. 

07613 

4224 


JMS FLOAT 
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07614 

4435 

FENTER 


07615 

4203 

F AD*FWD* X- , 

/ADD 2 TO 3X 

07616 

0000 

FEXIT 

/LEAVE RESULT IN FAC 

07617 

5600 

JMP I UUF 

/--RETURN-- 


07620 

07621 

07622 

0000 

0000 

0000 

X, 

01010 



07623 

0000 

TEMP, 

0 



07624 

07625 

07626 

07627 

07630 

07631 

07632 

0000 

3223 

4633 
1223 
3016 

4634 
5624 

FLOAT, 

0 

OCA TEMP 

JMS I IBEG 
TAD TEMP 

DC A AC3 

JMS I INORM 
JMP I FLOAT 

/STORE CONSTANT TEMPORARILY 
/PREPARE FAC TO RECEIVE VALUE 

/PUT CONSTANT IN FAC 

/normalize IT 

/-•RETURN-- 

07633 

07634 

3762 

4600 

I8EG , 
INORM, 

BEGFIX 

anorm 



/UUF ( X) »3X*2 



PAL8-V7 5/25/72 PAGE 

1-1 


$ 

The following BASIC program calls UUF(X) to print X and 
3X4-2 for a number of values of X. The results differ from those 
in example 1 because of the capability of floating point arithmetic 
to handle fractions. 

READY. 

100 FOR X = - 3 TO 3 STEP .5 
1 10 PRINT X, UUFCX) 

120 NEXT X 
130 END 


RUN 

-3 

- 2 . 5 

-2 

-1.5 
- 1 
-. 5 
0 

. 5 
1 

1. 5 

2 

2. 5 
3 

READY . 


-7 

- 5. 5 
-4 

-2. 5 

- 1 

. 5 

2 

3. 5 
5 

6. 5 
8 

9.5 

1 1 
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Example 3: 

This UUF routine computes the square of the argument in float- 
ing point format. 

/UUF (X) PAL8-V7 5/25/72 PAGE t 

/UUF (X) *X*2 

/ENTER WITH X IN FAC 



4435 

/EXIT WITH UUF ( X ) I 
/USE FLOATING POINT 

FENTER*4435 


2000 

FST*2000 


0200 

FWD»200 


6000 

FMP«6000 


0000 

FEX I T «0000 


0000 

FIELD 0 


1156 

*1156 

01156 

7700 

UUF 


7700 

*7700 

07700 

0000 

UUF, 0 

07701 

4435 

FENTER 

07702 

2204 

FST*FWD*X-, 

07703 

6203 

FMP + F WO* X" » 

07704 

0000 

FEXIT 

07705 

5700 

JMP I UUF 

07706 

0000 

X, 01010 

07707 

0000 


07710 

0000 



N FAC 

ARITHMETIC 


/STORE ARGUMENT IN X 
/MULTIPLY FAC BY LOC, X (X*X) 
/RESULT IS IN FAC 
/"-RETURN*" 


The following BASIC program uses the above UUF to produce 
a table of squares and square roots: 

READY. 

100 FOR A= 1 TO 10 STEP 1 
110 PRINT A, UUFCA), SQRC A) 

120 NEXT A 
130 END 

RUN 


1 

1 

1 

2 

A 

1. 414214 

3 

9 

1.732051 

4 

1 6 

2 

5 

25 

2. 236068 

6 

36 

2. 449 49 

7 

49 

2. 645751 

3 

64 

2.3 23 427 

9 

8 1 

3 

10 

100 

3. 162278 

READY. 
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EDITING AND CONTROL COMMANDS 

Errors made while typing at the console keyboard are easily cor- 
rected. BASIC provides special commands to facilitate the editing 
procedure. 

Erasing Characters and Lines 
SHIFT/O, RUBOUTS, NO RUBOUTS 

There are two methods available for erasing a character or 
series of characters one at a time. Typing a SHIFT/O causes the 
deletion of the last character typed, and echoes as a back arrow 
(<-) on the Teletype. One character is deleted each time the key 
is typed. 

The RUBOUT key may also be used for deletion of characters 
one at a time providing the command : 

RUBOUTS 


has been typed on the keyboard before the editing is done. This 
command enables the RUBOUT key to be used. If the user has 
neglected to type this command, he may not use the RUBOUT key. 
A later command of: 

NO RUBOUTS 

disables the key for use. (This is desirable when programs created 
on other systems which use rubouts as null characters are to be 
read into core. See the section entitled PTP AND LPT under 
Listing and Punching a Program.) For example: 

10 LER-T A=10*B 

The user types a B instead of T and immediately notices the mis- 
take. He may type SHIFT/O (or RUBOUT key, if enabled) once 
to delete the B, and as many times more as characters, including 
spaces, are to be deleted. After the correction is made, he may 
continue typing the line. The typed line enters the computer only 
when the RETURN key is pressed. Before that time any number 
of corrections can be made to the line. 
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20 DEN F---F FNACX,Y)=Xt 2 + 3*Y 


When the RETURN key is typed, the line is input as: 

20 DEF FNA(X,Y)=XT2+3*Y 

Notice that spaces, as well as printing characters, may be erased. 

The user may erase an entire line (provided the RETURN key 
has not been typed) by typing the ALTMODE key (ESCAPE 
key on some keyboards). BASIC echos back: 

DELETED 

at the end of the line to indicate that the line has been removed. 
The user continues as though it were a new line. If the RETURN 
key has already been typed, the user may still correct the line by 
simply typing the line number and retyping the line correctly. He 
may delete the line by typing the RETURN key immediately after 
the line number, thus removing both the line number and line 
from his program. 

If the line number of a line not needing correction is accidentally 
typed, the SHIFT/O or RUBOUT key may be used to delete the 
number(s); the user may then type in the correct numbers. As- 
sume the line: 

10 IF A> 5 GO TO 230 

is correct. The programmer intends to insert a line 15, but in- 
stead types: 

10 LET 

He notices the mistake and makes the correction as follows: 

10 LET-— ---5 LET X=X-3 

Line 10 remains unchanged, and line 15 is entered. 

Following an attempt to run a program, error messages may be 
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output on the Teletype indicating illegal characters or formats, or 
other user errors in the program. Most errors can be corrected by 
typing the line number (s) and the correction(s) and then re- 
running the program. As many changes or corrections as desired 
may be made before runs. 


Listing and Punching a Program 
LIST 

An indirect program or data can be listed on the active output 
device by typing the command : 

LIST 

followed by the RETURN key. The entire program (or data) will 
be listed. 

A part of a program may be listed by typing LIST followed by 
a line number. This causes that line and all following lines in the 
program to be listed. For example: 

LIST 100 

will list line 100 and all remaining lines in the program. 

PTP AND LPT 

The LIST command may be issued in conjunction with the LPT 
or PTP commands as follows : 

PTP LPT 

LIST LIST 

This will list the current program on the high-speed paper tape 
punch or line printer respectively. Control is reset to the Teletype 
after the listing is completed. 

Occasionally, when 8K BASIC is reading in a program from the 
low-speed reader, it may drop a character since the Teletype 
buffer cannot accept input at a prolonged fast rate. To eliminate 
this possibility, use LIST as follows when punching out paper 
tapes: 
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P TP 
LIST* 

This inserts null characters after carriage returns and is recom- 
mended when punching any tapes that will later be read in from 
the low-speed paper tape reader. (8K BASIC does not use rub- 
outs as null characters. ) 

Reading a Program 
PTR 

The PTR command can be issued to read in a paper tape from 
the high-speed reader. This mode is particularly useful for reading 
in a user-coded “load and go” BASIC program. The tape should 
be positioned in the reader before the command is issued; if not, or 
if the reader runs out of tape, BASIC prints; 

TTY 

on the Teletype to indicate that there is no more input from the 
high-speed reader, and that it is waiting for input from the Tele- 
type. 

The user may cause tapes to be read in from the low-speed 
reader by simply placing the tape over the sprocket wheel and 
setting the reader to START. 

Running a Program 

RUN 

After a BASIC program has been typed and is in core, it is 
ready to be run. This is accomplished by simply typing the com- 
mand: 

RUM 

followed by the RETURN key. The program will begin execution. 
If errors are encountered, appropriate error messages will be typed 
on the keyboard; otherwise, the program will run to completion, 
printing whatever output was requested. When the END state- 
ment is reached, BASIC stops execution and prints: 

READY. 
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PTP AND LPT 

Either the high-speed paper tape punch or LP08 line printer, if 
available, can be used in conjunction with the RUN command. 
After the command is issued, all output during program execution 
is diverted from the Teletype to the specified device. The com- 
mand sequence is: 

PTP LPT 

RUN RUN 

This procedure eliminates the need to insert the PTP (or LPT) 
statement within the program. Output returns to the Teletype 
after execution. 


Stopping a Run 

CTRL/C 

To stop a program during execution or to return to BASIC at 
any time, type a CTRL/C (accomplished by typing the CTRL 
key and the C simultaneously). This causes the current operation 
to be aborted immediately, and the message: 

STOP. 

READY. 

to be printed indicating that an 8K BASIC command can now be 
issued. 

CTRL/O 

The command CTRL/O (caused by typing the CTRL and O 
keys down simultaneously) is used to stop output temporarily. The 
program will continue to execute but output will not be printed on 
any output device unless an error occurs or unless BASIC is 
waiting for a command or for data from an input statement. In the 
latter case, the Teletype is the expected input device. This feature 
is particularly useful for programs that print lengthy introductions 
and then request a user-specified parameter. Typing CTRL/O 
after the program is started will cause BASIC to bypass printing 
the introduction and wait until the parameter is specified, thereby 
saving the time required to print the message. A second CTRL/O 
will resume output. 
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NOTE 

For most programs that do not wait for 
input from the Teletype, processing of the 
program after an initial CTRL/O will be 
completed before a second CTRL/O can be 
typed. Thus, it is very possible for no output 
to be printed rather than the anticipated 
partial output. 

Erasing a Program in Core 

SCR 

The command: 

SCRATCH 

or 

SCR 


is provided to allow the programmer to clear his storage area, 
deleting any commands, or a program which may have been 
previously entered, and leaving a clean area in which to work. If 
the storage area is not cleared before entering a new program, 
lines from previous programs may be executed along with the 
new program, causing errors or misinformation. The SCRATCH 
command eliminates all old statements and numbers and should 
be used before any tapes are read into core, or new programs 
created. 

LOADING AND OPERATING PROCEDURES 
BASIC Compiler 

The following procedure may be used to load in the 8K BASIC 
binary tape. 

1. Toggle the RIM Loader into field 0 and, using the appro- 
priate reader, read the Binary Loader into field 0. (Refer 
to Appendix A for details.) 8K BASIC will not use loca- 
tions 7600 to 7777, thereby preserving the Binary Loader if 
it is present. 

2. Place the 8K BASIC binary tape in the appropriate reader; 
set switches 6-8 = 0, and 9-11 =0; press EXTD ADDRess 
LOAD. 

3. Set the Switch Register = 7777 and press ADDRess LOAD. 
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4. If using high-speed reader, set the Switch Register = 
3777 and press CLEAR and CONTinue; otherwise, sim- 
ply press CLEAR and CONTinue. 

5. After the tape has read in, set the Switch Register = 1000. 

6. Press ADDRess LOAD, and CLEAR and CONTinue. 
BASIC responds by typing READY. 

7. BASIC programs on paper tapes may be read in using the 
PTR command explained earlier, or created on-line. 

User- Defined Function 

The following procedure may be used to load in a user-defined 
function. 

1 . Load the Binary Loader into field 1 . 

2. Load BASIC into field 0. 

3. Load the user-function (binary paper tape overlay) into 
field 0^/w~LCv L JM -L oL * . 

4. Set Switch Register = 1000; press ADDRess LOAD and 

START. - h r ' l 


Note that the Binary Loader is destroyed. To reload BASIC, 
steps 1 through 6 must be repeated. 

8K BASIC ERROR MESSAGES 

The computer checks all commands before executing them. If 
for some reason it cannot execute the command, it indicates this 
by typing one of the error messages. The number of the line in 
which the error was found is also typed out. The form is: 

ERROR MESSAGE AT LINE XXXX 
Table 3 lists the errors 8K BASIC checks for and reports 
before execution: 

Table 3 8K BASIC Error Messages 

Message Meaning 

ARGUMENT ERROR A function has been given an illegal argument; 

for example: 

SQR ( - 1 ) 

DATA ERROR There are no more items in the data list. 

FOR ERROR FOR loops are nested too deeply. 
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FUNCTION ERROR 

GOSUB ERROR 
LINE NO ERROR 

NEXT ERROR 

RETURN ERROR 

SUBSCRIPT ERROR 

SYNTAX ERROR 


TOO-BIG ERROR 


The user has attempted to call a function which 
has not been defined. 

Subroutines are nested too deeply. 

A GOTO, GOSUB, or IF references a non- 
existent line. 

FOR and NEXT statements are not properly 
paired. 

RETURN statement issued when not under 
control of a GOSUB. 

A subscript has been used which is outside 
the bounds defined in the DIM statement. 

The command does not correspond to the 
language syntax. Common examples of syntax 
errors are misspelled commands, unmatched 
parentheses, and other typographical errors. 
Reference to an undefined UUF will also pro- 
duce this diagnostic. 

The combination of program size and number 
of variables exceeds the capacity of the com- 
puter. Reducing one or the other may help. 
If the program has undergone extensive re- 
vision, punching it out, typing SCRATCH 
and reloading should be tried. 


The following programming errors are not reported by 8K 
BASIC, but instead are used in the computation as specified. They 
are included here for the programmer’s reference. 

1. Attempting to use a number in a computation which is too 
large for BASIC to handle will produce a result which is mean- 
ingless. 

2 . Attempting to use a number in a computation which is too 
small for BASIC to handle will result in the value zero being used 
instead. 

3. Attempting to divide by zero will produce a result which is 
meaningless. 


60 




BASIC SYMBOL TABLE 

Table 4 lists 8K BASIC’s symbols and their values. This 
information is useful when writing user-coded (machine lan- 
guage) functions. 

Table 4 8K BASIC Symbol Table 


ABCDEF 

1756 

BARROW 

2666 

CT3 

0014 

eptr 

0056 

A3QGET 

2006 

BCDEFG 

1757 

cvtloo 

5024 

ERROR 

4142 

A30P 

0325 

BCKWDS 

4502 

DAT AER 

1667 

eval 

1004 

A3S 

6425 

BEGFIX 

3762 

DB AD 

7513 

evalgo 

1007 

AC 1 

0020 

B1DLE 

6713 

DBBAD 

7532 

EXECUT 

0213 

AC2 

0017 

BKWD 

0603 

DBGOT 

7420 

EXIT 

2402 

AC3 

0016 

BREAK 

6522 

DB I SR T 

7547 

EXP 

6000 

ACCEPT 

7473 

BSKIP 

2730 

DBLIT 

7526 

EXPGOO 

5242 

ACE 

3025 

BUSY 

6737 

DBPUT 

7556 

EXPLON 

5764 

acn 

4417 

CARRET 

2700 

DDLAST 

7512 

EXPOK 

5265 

ACOUNT 

0022 

CC INTK 

7465 

DECEXP 

0043 

FAD 

4000 

ACS 

0024 

CCXRA 

7342 

decfra 

3366 

fadext 

1314 

AD A 1 

0025 

CDEVCO 

0000 

DEEPER 

0526 

fad I 

4400 

A D A 2 

0026 

CDINP 

7445 

DEE 

1576 

FATNAX 

6273 

ADA3 

0027 

CHECKW 

2346 

DELAY 

7463 

FaTNC 

6337 

ADACPT 

0007 

CHKF IT 

6400 

delete 

6501 

FaTNCI 

6304 

AD9 

7477 

CLAB 

6133 

DELOUT 

0142 

FATNC2 

6307 

ADC 

7477 

clba 

6136 

DEVCOM 

7175 

FATNC3 

6312 

adccor 

0064 

CLC 

7477 

devcon 

7176 

FATNC4 

6315 

ADCL 

6530 

CLCA 

6137 

D I CD 

6051 

FATNC5 

6320 

A'JCUNT 

0010 

clear 

7432 

DIGIN 

3224 

FATNC6 

6323 

ADCX 

0012 

CLE ARV 

2462 

DIGIT 

3204 

FATNC7 

6326 

ADUPES 

0067 

CLEN 

6134 

diglup 

6557 

FATNC8 

6331 

adle 

6536 

clksts 

0003 

DILC 

6050 

FATNC9 

6334 

ADlM 

6531 

CLOCK I 

0175 

DILE 

6056 

fatnch 

6342 

ADR3 

6533 

CLOE 

6132 

D I LX 

6053 

fatncj 

6345 

ADRS 

6537 

clrcnt 

0360 

DILY 

6054 

fatnsx 

6272 

ADSE 

6535 

cls 

7477 

DIM 

6472 

fatnt 

6276 

ADSK 

6534 

CLS A 

6135 

dimfla 

0034 

fatntt 

6301 

ADST 

6532 

CLSK 

6131 

dinp 

7511 

fcntlc 

6665 

A GET 

0301 

ClTEmP 

0011 

dire 

6057 

fcntlo 

6703 

Ali 

4654 

clze 

6130 

disaut 

0015 

fdigit 

3360 

AlGNLP 

4466 

CNCLR 

0143 

D I SB 

0136 

FDV 

7000 

ALL3 

3146 

cntlcf 

6700 

disd 

6052 

fdvi 

7400 

alloc 

1461 

CNTlCR 

6670 

djvlp 

4705 

FENTER 

4435 

AuTMOD 

2663 

CNTLO 

0133 

divxte 

3364 

FEXIT 

0000 

AMATCH 

6506 

COOELO 

0004 

DIXY 

6055 

FEXPC1 

6072 

A NORM 

4600 

COLUMN 

0126 

DL AST 

7511 

FEXPC2 

6075 

APJT 

0263 

COMMON 

3400 

DOAD 

0362 

FEXPC3 

6100 

APUTl 

0023 

COMPAR 

2136 

doadlp 

0366 

FEXPC4 

6103 

A P U T 2 

0024 

CONST 

1367 

DO I T NO 

1247 

FEXPC5 

6106 

A R 1 ' 

4402 

COS 

5616 

DOT2ER 

7371 

FEXPC6 

6111 

argerr 

7363 

COWT 

7326 

dpflag 

3365 

FEXPF 

6067 

arrloc 

0003 

cowtfp 

7343 

dqintx 

3170 

FEXPI 

6061 

atemp 

0323 

COWTlP 

7331 

DSCREW 

0375 

FEXPU 

6064 

ATEMP2 

0324 

COWTO 

7340 

dvloop 

5245 

FINDIT 

0537 

ATlINE 

6451 

COWTW 

7344 

EDIT 

2405 

FINDLU 

0565 

atn 

6200 

CRINTX 

3076 

END 

2567 

FIX 

4744 

A T N3 I G 

6265 

CRLF 

6531 

ENOLIN 

7643 

F I XEX I 

4773 

ATNLOW 

6220 

CRLFPR 

3740 

ENDNUM 

3331 

FIXITU 

5200 

A T NNOT 

6237 

CT1 

0016 

ENOPDL 

7704 

fixlin 

2113 

autemp 

0063 

C T 2 

0015 

eofad 

4526 

fixlup 

4750 
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FIXUP 

5146 

FSB 

5000 

gptp 

0060 

intou 

6765 

Fjmp 

1000 

FSB I 

5400 

grb 

7224 

INWDTM 

4064 

fjmpi 

1400 

FSEQ 

£050 

grdela 

7222 

IPNOPE 

4024 

FJUMP 

1130 

FSGE 

0100 

gsbend 

7755 

IPOINT 

7034 

FLO 

3000 

FSGT 

0140 

GSBPTR 

0165 

ISDEF2 

3512 

floi 

3400 

FSHIFT 

7443 

GSSl 

1562 

ISDIG 

6532 

flogci 

6175 

FSIN10 

5641 

GSS2 

1563 

I SO I M 

1473 

FL0GC2 

6156 

FS I NCI 

5713 

gtbklp 

I7i0 

1 SET 

7407 

FL0GC3 

6161 

FSINC3 

5716 

GTEMP 

7254 

ISIT 

4566 

FL0GC4 

6164 

FSINC4 

5721 

gwhere 

7270 

ISITDF 

0550 

fmp 

6000 

FSINC5 

5724 

HFOUND 

7321 

ISJTFU 

1110 

fmpi 

6400 

FSINC6 

5727 

HIGHWD 

4333 

isitli 

4104 

fmti 

5125 

FSINC7 

5732 

HIOOP 

2722 

ISLIT 

4133 

FMT2 

5053 

FSINM4 

5735 

HPTR 

0061 

ISSOME 

1644 

FM T3 

5130 

FSINOK 

5657 

HRCHAR 

7256 

I SUM I N 

1013 

fmtemf 

5123 

FSINZ 

5705 

hrlop 

7302 

ITSDEF 

3514 

fn 

5453 

FSINZZ 

5710 

HRMES 

7323 

ITSDP 

3256 

FNERR 

0352 

FSLE 

0150 

iamles 

2156 

ITSE 

3263 

fnexit 

1200 

FSLT 

0110 

I DIE AC 

6732 

ITSOP 

1220 

FOR 

0413 

FSNE 

0040 

I DLECD 

6725 

ITSP 

3300 

forct 

0063 

FSQRX 

5407 

IDLECI 

6726 

JBPENT 

3707 

FORDON 

0663 

FST 

2000 

IDLELK 

6731 

JDIGIT 

3124 

FORERR 

0501 

FSTI 

2400 

IOLEPC 

6733 

JISDIG 

3367 

forlim 

0721 

ftanti 

5677 

IF 

0375 

JMATCH 

2766 

FORlIS 

7705 

FTANT2 

5702 

IGNORE 

2115 

JPUTCH 

0777 

FORSTE 

0724 

FUNTAB 

1131 

I I XR 

7414 

JTXXIT 

3123 

FORVAR 

0452 

FUPRC1 

5762 

IMMED 

2454 

JUST0 

3150 

FOUND 

0575 

FWO 

0200 

IN 

3431 

JUST0F 

3160 

FOURLF 

3557 

FXXPFX 

6023 

INCHAR 

7255 

JU3T0P 

3163 

fpaod 

4456 

GALT 

7247 

INDEV 

0127 

JUST1 

3145 

fpaddr 

4304 

GDIM2 

1564 

INDEX1 

00i3 

JUST2 

3147 

fpqiv 

4667 

GET 

0001 

INDEX2 

0014 

KEYWD 

0231 

fpdoi t 

4237 

GETADD 

1400 

inlctm 

4065 

L4LUP 

3664 

fpflag 

0156 

getary 

7462 

INLOOP 

0572 

LBEGIN 

7563 

FPGOTO 

4273 

GETBLK 

1674 

INLUPF 

0432 

ICF 

6662 

FPjMP 

4317 

GETCH 

7201 

INODUN 

6710 

LET 

0312 

FP JUMP 

4274 

GET J 

1770 

INOPPP 

6641 

LETDO 

0205 

FPLAC 

4351 

getlin 

2603 

inottt 

6645 

letter 

3446 

fploop 

4202 

getlre 

2600 

INPLUP 

4034 

LFXLUP 

2333 

fpmul 

4530 

getopr 

1015 

inpptr 

4063 

LHALF 

3070 

fpnoad 

4270 

getvar 

0311 

INPUT 

4007 

LIMIT 

0003 

FPOPER 

4305 

■GETWD 

0177 

INSERT 

2032 

LINBUF 

7512 

fppgz 

4227 

GLOOP 

2711 

INSRT5 

2030 

LINENO 

0052 

FPSKIP 

4314 

goboth 

0532 

INT 

6434 

L INF IX 

2330 

FPSTO 

4322 

golist 

7725 

INTAC 

6734 

LIST 

3600 

FPSUB 

4453 

GOSUB 

0505 

INTCDF 

6770 

LIST2 

3640 

fpt 

4200 

GQTEMP 

0053 

INTCIF 

6771 

LIST3 

3655 

FPTEMP 

4576 

goto 

0517 

intecd 

6762 

LIST4 

3661 

fptr 

0057 

gotopr 

1202 

intemp 

6736 

LISTS 

3676 

FPZOI V 

4736 

GOTSS 

1074 

inter 

6600 

LISTAL 

3616 

frndx 

5404 

GOTSTE 

0634 

intext 

6744 

LISTLU 

3620 

frstne 

2155 

GOUT 

7251 

intl 

6735 

LISTSO 

3617 
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LITRAL 

3131 

NOBUMP 

4633 

0212 

0010 

O7706C 

3473 

LLLJMP 

7457 

NOCOMM 

0335 

0215 

0007 

07715 

2773 

LLLJMS 

7446 

NOINT 

0134 

023 

1366 

07725A 

3100 

LLLUUU 

7140 

NONBLN 

3110 

0233 

3772 

077250 

3371 

LIS 

6666 

NONZER 

5016 

0240 

0051 

07737 

3122 

LNOEND 

3630 

NOPARE 

1035 

0253 

5150 

07740 

0054 

LOADED 

4127 

NOPCR 

2216 

0255 

5151 

07741 

3745 

LOCCTR 

0045 

NORLFT 

6423 

0256 A 

5136 

07743 

4743 

LOCTEM 

0671 

normed 

5220 

0256B 

6575 

07745 

0162 

loctmp 

1673 

NORMIT 

5207 

0260 

0011 

07746 

7264 

LOG 

6114 

NORUBO 

5574 

027 

3370 

07753 

3104 

LOGACE 

6170 

NOSSl 

1460 

0305 

5152 

07762 

2327 

logfwd 

6167 

NQSS2 

1453 

032 

3121 

07763A 

0774 

LOGOKW 

6172 

NOT 

3427 

036 

2747 

077630 

3101 

LOWLOC 

2171 

NOTBAD 

2127 

03737B 

2773 

07764A 

1274 

LPTOUT 

7163 

NOTBIG 

4620 

03754 

1162 

07764B 

3102 

LSF 

6661 

NOTCR 

3023 

03755 

1273 

07764C 

3374 

LSTLOC 

2160 

notfrs 

2061 

0377 

0071 

07764D 

6777 

LUP 

3405 

nother 

0435 

04 

0160 

07766 

5134 

LUFF 

0426 

NOTKWQ 

0313 

040 

2770 

07770 

0055 

MACHIN 

0000 

notnow 

2000 

04001 

7525 

07771 

5135 

mayzer 

4612 

NOTSGN 

3301 

04014 

1163 

07772 

5137 

MENDLI 

0041 

NOTTXT 

2236 

042 

3106 

07773 

5346 

MENDPD 

2363 

notvar 

1105 

04200 

3105 

07774 

i566 

MEVAL 

7415 

NOTX10 

5236 

04213 

1164 

07775 

6776 

mevalg 

7431 

NPSPER 

7555 

05400 

5347 

07776 

3372 

MGOLIS 

0720 

NSYMTA 

0006 

O6201A 

6615 

07777 

7114 

MGSBEN 

0525 

nulcmd 

7454 

O6201B 

7005 

OADD 

4435 

MINUS 

1316 

NUL JOB 

7415 

06202 

6775 

QBHIGH 

1177 

MLBEGI 

0173 

NULLOP 

7430 

07 

0072 

OBLOW 

il65 

mlend 

0174 

NUMBUF 

5335 

070 

6774 

OBOP 

7101 

mlinbu 

0040 

01000 

3550 

0700 

1272 

OCC 

5205 

MNSONE 

0736 

Oil 

0504 

O7000A 

2560 

OCMLIM 

7113 

MOREDI 

6470 

0110 

2361 

O7000B 

3474 

OCOR 

7113 

MOREIN 

4000 

012 

0065 

O7000C 

7456 

OCOUNT 

7042 

MORERD 

1621 

0122 

2771 

07077 

1275 

ODEV 

0132 

MOVE 

2012 

013 

1567 

07520 

5133 

OFLAG 

7100 

MOVLUP 

2072 

0132 

7265 

07545 

4777 

OFLOW 

7115 

MPY 

5321 

0137 

7261 

07570 

6436 

0 JUMP 

1276 

mpylup 

4552 

014 

2360 

07577 

4577 

oldop 

0066 

MTXXIT 

3201 

O140A 

0775 

07577B 

7534 

one 

0l5i 

mulclr 

4571 

O140B 

2772 

07600 

4345 

ONEDIM 

1064 

mulexp 

3346 

0143 

7266 

07601 

7260 

ONCSS 

1076 

MULXTE 

3363 

017 

5147 

07603 

2774 

0NLY1 

3322 

MUSTBE 

4570 

01742 

3375 

07610 

3343 

007600 

5432 

NDELAY 

7420 

0175 

7267 

07612 

7262 

007736 

2326 

NEUCHA 

2615 

0177 

0027 

O7640A 

0763 

OPl 

0023 

NEULIN 

2610 

01774 

3376 

O7640B 

2763 

0P2 

0022 

NEXT 

0600 

02 

0062 

O7640C 

7263 

0P3 

0021 

NEXTER 

0673 

0200 

0155 

07673 

33{6 

OPDONE 

1203 

NEXTVA 

0637 

O2040A 

3373 

077 

0070 

OPE 

0030 

nintec 

7457 

02062 

5344 

O7706A 

6544 

OPCRAN 

0073 
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OPNUl 

7067 

PGOTOP 

0107 

OPOINT 

7065 

PHRCHA 

6740 

OPOTAB 

7073 

PIGNOR 

0471 

OPRST 

7155 

PJNCHA 

6741 

OPS 

0026 

PINT 

5676 

OPUTC 

7041 

PISITI 

0175 

otemp 

1271 

PJSET 

2461 

other 

3000 

PLBEGI 

0172 

OTST1 

7112 

pletdo 

0204 

0UTD2 

0130 

PLETTE 

3103 

OUTDEL 

7146 

PLIMIT 

2561 

OUTDEV 

0131 

PLINBU 

0037 

OUTIT 

7043 

PLINFI 

0161 

OUTNUM 

5000 

PLIST 

2563 

ov 

0012 

plitra 

3377 

PACN 

4742 

PLOG 

5775 

Pali 

0150 

PLOT 

7400 

PANORM 

0146 

PLOTB 

7514 

par! 

0147 

PLUS 

1312 

PARGER 

0047 

PMEVAL 

7441 

PASSCR 

0472 

PMPY 

5160 

PASSUM 

7440 

PNBF6 

5161 

PBEGFI 

1776 

PNOCR 

0757 

PBIDLE 

7161 

PNONBL 

0122 

P80MB 

0367 

PNOTNO 

2566 

PBUSY 

7157 

PNUMBU 

0044 

PCCUNT 

0744 

POADD 

0157 

PCHKFI 

0163 

POFLAG 

6742 

PCOHMO 

3357 

POP 

3551 

PCOWT 

0141 

POP3 

4434 

PDEVCO 

7442 

POPERA 

3127 

POL 

0036 

pother 

2776 

PDLIST 

7644 

POUTIT 

6743 

PEOIT 

0120 

POUTNU 

0117 

PERMSY 

7022 

PPAC1 

0042 

PERROR 

0077 

PPAC2 

0043 

peval 

0101 

PPAC3 

0044 

pevalg 

2240 

PP ACE 

0045 

PEXECU 

0103 

PP ACS 

0046 

PEXP 

5776 

PPASSC 

0110 

PPINDI 

0672 

PPOLIS 

0125 

PFIX 

0106 

PPERMS 

2565 

pfnerr 

5546 

PPFLOO 

4741 

PFPLOO 

4575 

PPFORL 

1760 

pgetad 

0102 

PP I NT 

6060 

PGETBL 

0115 

PPOP 

0105 

PGETCH 

0032 

PPRINR 

2241 

PGETLI 

0124 

PPRINT 

0114 

pgetlr 

3022 

PPRINU 

0123 

pgetop 

0111 

PPUSH 

0104 

pgetva 

0113 

PPUTCH 

0033 

PGOLIS 

0164 

PPXRA 

7160 


PRENT 

23l6 

PZCRDO 

6545 

PRESET 

01S7 

QB IDLE 

7257 

PRJNBL 

2277 

qerror 

4170 

PRJNCO 

2303 

QHRCHA 

7156 

PRINHA 

2260 

RANDAE 

0451 

PRINQU 

2225 

RBSWCH 

0135 

PRINRE 

2242 

READ 

1623 

PRINSE 

23i2 

READLO 

0046 

PRINT 

2173 

READY 

6525 

PRJNTC 

2207 

REALTI 

7473 

PRINTG 

2206 

REJECT 

74f3 

printh 

2222 

RELATE 

1342 

PRINTX 

3702 

REMPAC 

3043 

PRINUM 

3747 

RESET1 

7116 

PRINVA 

3653 

RESET2 

7141 

PRLOOP 

373!l 

RESTOR 

3773 

PRSUBR 

3724 

retner 

0713 

PRTEMP 

0042 

return 

0677 

PRTXRE 

3722 

RHALF 

3074 

P5GN 

5675 

rmleft 

6413 

PSKIPI 

1617 

RND 

5353 

PSLOOP 

0li6 

RNDJMP 

5350 

PSPACE 

1565 

rtcrr 

7373 

pstick 

0121 

RUBO 

5573 

PSTOVA 

01i2 

RUN 

2452 

PSXERR 

0100 

RUN2IN 

2543 

PSYMTA 

0005 

RUN2LU 

2514 

PTABDE 

5570 

RUN2N0 

2537 

ptabfl 

5571 

RUNIN 

2503 

PTABLE 

2777 

RUNLUP 

2465 

PTEN 

0145 

RUNNOT 

2477 

PTEXT 

0076 

SCHMOR 

1657 

PTPOUT 

7164 

SCRATC 

2440 

PTRIN 

7172 

SEARCH 

1660 

PTIIBIG 

3021 

setclo 

7473 

PUSERF 

5545 

SETRAT 

7473 

PUSH 

2364 

SETSGN 

4512 

putcdf 

7037 

setup 

7400 

PUTCH 

0741 

SGN 

0726 

PUTCIN 

7023 

SIMPLV 

3466 

puter 

7000 

SIN 

5624 

PUTJ 

1761 

SINCHA 

7162 

PUTLOC 

2172 

S JUMP 

0240 

putlp 

7007 

skipit 

0467 

putxra 

0776 

slash 

1332 

pxforl 

0556 

SLOOP 

2707 

PXLINB 

3746 

SLSHTM 

1337 

PXXCRL 

3125 

SNUMFL 

0064 

PXXEOF 

2564 

SPACER 

0370 

PXXEXI 

3126 

SPEC I N 

0140 

PXXLIT 

3130 

SPLEFT 

0144 

PXXTHE 

2562 

SQEXIT 

5450 
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SQLOOP 

5435 

U7760 

0052 

SQR 

5412 

1)77 67 

0035 

sserr 

1570 

1)7775 

0021 

SSFIX 

4775 

U7777 

0050 

SSONE 

0344 

UABAD 

0620 

SSTWO 

0345 

UAC1 

0037 

star 

1327 

UAC2 

0040 

start 

1000 

UAC3 

0041 

STICKI 

6430 

UACCPT 

0453 

STOP 

2570 

UADCB 

0600 

STQVAR 

0341 

UADCIN 

0613 

SU8RA 

2161 

UADCMY 

0615 

SXERR 

6441 

UADCN 

0622 

TAB 

5547 

UCLC 

0345 

tabdes 

6367 

UCLOOP 

0217 

taboo 

6350 

UCLS 

0340 

tabflg 

2345 

UOEVCO 

0056 

tabok 

6360 

UDOAD 

0051 

tabthr 

2362 

UDOPER 

1363 

tan 

5600 

UFFUD 

0756 

tbegfi 

5572 

ufjmp 

0757 

ten 

0000 

UGETWD 

0057 

theski 

1353 

UGH1 

3562 

thistx 

3107 

U I EXT 

0234 

tim 

7477 

UIEXT2 

0243 

timi 

0004 

UIEXT3 

0245 

T 1 M2 

0005 

UIEXT4 

0260 

tmp 

0031 

UINAC 

0631 

TOOLON 

5162 

UJMP 

0054 

tprint 

6370 

UJMS 

0055 

tralup 

2105 

UMEVAt 

0031 

transf 

2103 

UMOPER 

1321 

tryaci 

5133 

UNOERF 

4645 

tryste 

0626 

UPAGET 

0653 

TST 

7421 

UPARR2 

4365 

TSTFX 

7417 

UPARRO 

6457 

TSTP 

7431 

UPARRX 

5740 

ttyin 

7173 

upcomo 

0731 

ttyout 

7165 

UPFIX 

0032 

tubig 

2657 

UPFUN 

0747 

twidTh 

2357 

UPJMP 

0736 

TWOSS 

1077 

ureal 

0460 

TXTPAK 

3046 

UREJT 

0456 

U10 

0036 

USE 

7446 

U100 

0013 

USERFN 

1620 

U17 

0047 

USETC 

0411 

U177 

0017 

USETF 

0550 

U1P 

7503 

USETM 

0416 

U2P 

7504 

USETR 

0400 

U4707 

0020 

USKIPI 

7461 

U5010 

0034 

UTEMP 

0053 

U7 

0033 

UTIM 

0541 


UUAC1 

0654 

XXCND 

7232 

UUAC2 

0661 

XXEOF 

7302 

UUAC3 

0666 

XXEQ 

7034 

UUDATA 

t367 

XXCXIT 

7303 

UUDEVC 

0703 

XXEXP 

7126 

uufudg 

0733 

xxriNi 

7504 

UUJMP 

0722 

XXFN 

7107 

UUJMS 

0707 

XXFOR 

7233 

UUMEVA 

0673 

XXGE 

7040 

uunoad 

7460 

XXGET 

7173 

UUPFIX 

0677 

XXGOSU 

7241 

UUSETF 

0030 

XXGOTO 

7246 

UUUJMP 

0730 

XXGT 

7060 

UUUJMS 

0721 

XX I F 

7260 

UUULLL 

0332 

XXINPU 

7263 

UVP 

7502 

XX I NT 

7142 

uwait 

0437 

XXLBRA 

7103 

UWAITC 

0440 

XXLE 

7035 

VAR 

0343 

XXLET 

7270 

VARTEM 

0533 

XXL I S 

7162 

VSCHIN 

3524 

XXLIST 

7136 

VSCHLU 

3475 

XXLIT0 

7506 

VSCHNO 

3320 

XXLOG 

7123 

WAIT 

7473 

XXLPT 

7361 

WAITC 

7473 

XXLT 

7036 

wdtemp 

1073 

XXMINU 

7025 

WORD 

0030 

XXNE 

7043 

XEXECU 

0412 

XXNEXT 

7274 

XGISIT 

4066 

XXNRUB 

7377 

XGMUST 

7345 

XXOPEN 

7103 

XISIT 

4073 

XXPLOT 

7422 

XMUST 

7302 

XXPLUS 

7023 

XRESTA 

1003 

XXPRIN 

7300 

XXABS 

7134 

XXPTP 

7364 

XXACPT 

7466 

XXPTR 

7367 

XXADB 

7223 

XXPUT 

7133 

XXADC 

7176 

XXRBRA 

7070 

XXATN 

7120 

XXREAD 

7337 

XXBSLS 

7230 

xxreal 

7426 

XXCLC 

7220 

XXREJT 

7473 

XXCLEA 

7406 

XXREH 

7327 

XXCIOS 

7066 

XXRETR 

7305 

XXCLS 

7215 

XXRND 

7143 

XXCOMM 

7062 

XXRSTO 

7322 

xxcos 

7112 

XXRUB 

7372 

XXCRLF 

7226 

XXRUN 

7165 

XXDATA 

7343 

XXSCR 

7170 

XXOEF 

7333 

XXSEMI 

7064 

XXOELA 

7412 

XXlETC 

7443 

XXDIM 

7316 

XXSETR 

7433 

XXEG 

7046 

XXSGN 

7137 

XXCL 

7001 

XXSIN 

7130 
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XXSLAS 

XXSQR 

XXSTAR 

XXSTEP 

XXSTOP 

XXJAB 

XXTAN 

XXTEXT 

XXTHEN 

XXTIME 

XXTO 

XXTTY 

XXTTYI 

XXTTYO 

XXUCOM 

XXUNAR 

XXUPAR 

XXUSE 

XXUUF 

XXWAIT 

YYUAIT 

ZEROON 

ZERO 

ZFIXEX 

ZZAOB 

zzadc 


7031 

7131 

7027 

7076 

7312 

7207 

7115 

7501 

7253 

7204 

7072 

7201 

7347 

7354 

7462 

7503 

7033 

7416 

7212 

7452 

7456 

5144 

0152 

4767 

0775 

0770 



STATEMENT AND COMMAND SUMMARIES 

Summaries of the editing and program control commands 
available in 8K BASIC are presented below. 

Edit and Control Commands 


Command 

Abbreviation 

Action 

CTRL/C 


Stops a running program, and 
returns to the editing phase of 
BASIC. 

CTRL/O 


Stops output of a running BASIC 
program. Remains in this state 
until BASIC requests INPUT, an 
error occurs, or until another 
CTRL/O is typed. 

LIST 

LIS 

Lists the entire program in core. 


LIS n 

Lists line n through end of pro- 
gram. 

NO RUBOUTS 


Disables the RUBOUT key. 

RUBOUTS 


Enables the RUBOUT key. 

RUN 

RUN 

Compiles and runs the program 
currently in core. 

SCRATCH 

SCR 

Erases the current program from 
core. 

BASIC Statements 


Statement 

Example of Form 

Explanation 

DATA 

DATA nl, n2, 

. . . nn 

Numbers nl through nn are to be 
associated with corresponding vari- 
ables in a READ statement. 

DEF 

DEF FNB (x) = 
f(x) 

DEF FNB (x, y) 
=f(x, y) 

The user may define his own func- 
tion to be called within his pro- 
gram by putting a DEF statement 
at the beginning of a program. The 


function name begins with FN and 
must have three letters. The func- 
tion is then equated to a formula 
f(x) which must be only one line 
long. 
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Statement 

Example of Form 

Explanation 

DIM 

DIM v(s ) 

Enables the user to create a table 
or array with the specified number 
of elements where v is the variable 
name and s is the maximum sub- 
script value. Any number of ar- 
rays can be dimensioned in a 
single DIM statement. 

END 

END 

Last statement in the program. 
Signals completion of the program. 

FOR-TO- 

STEP 

FOR v=fl TO f2 
STEP f3 

Used to implement loops; the vari- 
able v is set equal to the formula 
fl. From this point the loop cycle 
is completed following which v is 
incremented after each cycle by f3 
until its value is greater than f2. 
If STEP f3 is omitted, f3 is as- 
sumed to be +1. f3 may also be 
negative. 

GOSUB 

GOSUB n 

Allows the user to enter a sub- 
routine at several points in the 
program. Control transfers to line 
n. 

GOTO 

GOTO n 

Transfers control to line n and 
continues execution from there. 

IF-GOTO 

IF f 1 r f2 GOTO n 

Same as IF-THEN. 

IF-THEN 

IF fl r f2 THEN n 

If the relationship r between the 
formulas fl and f2 is true, trans- 
fers control to line n (n may also 
represent an operation) ; if not, cont- 
inues in regular sequence. 

INPUT 

INPUT vl, v2, 

. . . vn 

Causes typeout of a ? to the user 
and waits for the user to supply 
the values of the variables vl 
through vn. 

LET 

LET v=f 

Assigns the value of the formula f 
to the variable v. 

LPT 

LPT 

Assigns line printer as output de- 
vice. 

NEXT 

NEXT v 

Used to tell the computer to re- 
turn to the FOR statement and 
execute the loop again until v is 
greater than or equal to f2. 
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Statement 

Example of Form 

Explanation 

PRINT 

PRINT al, a2, 

... an 

Prints the values of the specified 
arguments, which may be variables, 
text or format control characters 
(, or ;). 

PTp 

PTP 

Assigns high-speed paper tape 
punch as output device. 

PTR 

PTR 

Assigns high-speed paper tape 
reader as input device. 

READ 

READ vl, v2, 

. . . vn 

Variables vl through vn are as- 
signed the value of the correspond- 
ing numbers in the DATA string. 

REM 

REM 

When typed as the first three let- 
ters of a line, allows typing of 
remarks within the program. 

RESTORE 

RESTORE 

Sets pointer back to the beginning 
of the string of DATA values. 

RETURN 

RETURN 

Must be at the end of each sub- 
routine to enable control to be 
transferred to the statement follqw- 
ing the last GOSUB. 

STOP 

STOP 

Terminates execution at that point 
at which the statement is reached 
in the program. 

TTY IN 

TTY IN 

Assigns a console terminal as input 
device. 

TTY OUT 

TTY OUT 

Assigns a console treminal as out- 
put device. 


During input to the editor or when executing an INPUT com- 
mand, the following messages may be printed in response to 
the input: 

Message Explanation 


LINE TOO LONG The line just typed exceeded the available core 

buffer and must be retyped. 

DELETED The line has been deleted in response to an 

ALTMODE character and must be retyped. 

<- Back arrow is printed any time a RUBOUT or 

SHIFT/O is used. The previous character is 
deleted. 

TTY BASIC prints TTY to indicate that there is no 

more input from the high-speed reader and 
that it is waiting for input from the Teletype. 
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appendix a 

loading procedures 


Initializing the system 

Before using the computer system, it is good practice to initialize 
all units. To initialize the system, ensure that all switches and con- 
trols are as specified below. 

1 . Main power cord is properly plugged in. 

2. Teletype is turned OFF. 

3. Low-speed punch is OFF. 

4. Low-speed reader is set to FREE. 

5. Computer POWER key is ON. 

6. PANEL LOCK is unlocked. 

7. Console switches are set to 0. 

8. SING STEP is not set. 

9. High-speed punch is OFF. 

10. DECtape REMOTE lamps OFF. 

The system is now initialized and ready for your use. 


Loaders 

READ-IN MODE (RIM) LOADER 

When a computer in the PDP-8 series is first received, it is noth- 
ing more than a piece of hardware; its core memory is completely 
demagnetized. The computer “knows” absolutely nothing, not even 
how to receive input. However, the programmer can manually 
load data directly into core using the console switches. 

The RIM Loader is the very first program loaded into the com- 
puter, and it is loaded by the programmer using the console 
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switches. The RIM Loader instructs the computer to receive and 
store, in core, data punched on paper tape in RIM coded format 
(RIM Loader is used to load the BIN Loader described below.) 

There are two RIM loader programs: one is used when the in- 
put is to be from the low-speed paper tape reader, and the other 
is used when input is to be from the high-speed paper tape reader. 
The locations and corresponding instructions for both loaders are 
listed in Table A-l. 

The procedure for loading (toggling) the RIM Loader into core 
is illustrated in Figure A-l. 


Table A-l . RIM Loader Programs 


Location 

Instruction 

Low-Speed Reader 

High-Speed Reader 

7756 

6032 

6014 

7757 

6031 

6011 

7760 

5357 

5357 

7761 

6036 

6016 

7762 

7106 

7106 

7763 

7006 

7006 

7764 

7510 

7510 

7765 

5357 

5374 

7766 

7006 

7006 

7767 

6031 

6011 

7770 

5367 

5367 

7771 

6034 

6016 

7772 

7420 

7420 

7773 

3776 

3776 

7774 

3376 

3376 

7775 

5356 

5357 

7776 

0000 

0000 


After RIM has been loaded, it is good programming practice to 
verify that all instructions were stored properly. This can be done 
by performing the steps illustrated in Figure A-2, which also 
shows how to correct an incorrectly stored instruction. 

When loaded, the RIM Loader occupies absolute locations 7756 
through 7776. 
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* DEC TAPE USERS SHOULD 
LOAD RIM INTO FIELD 0 


( INITIALIZE ) 

— I 

SET ROTARY 
SELECTOR SWITCH 
TO MD 


SET SWITCHES 6-8 | 
TO DESIRED 
INSTRUCTION FIELD*, 


* 

SET SWITCHES 9-11 
TO DESIRED 
DATA FIELD * 


t 

PRESS 

EXT LOAD ADDR 


t 

SET SR 
TO 7756 


1 

PRESS 
ADDR LOAD 


t 

SET SR = 

FIRST INSTRUCTION 


1 

PRESS DEP 


!_ 

SET SR= 


NEXT INSTRUCTION 



Figure A- 1 . Loading the RIM Loader 
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Figure A-2. Checking the RIM Loader 
BINARY (BIN) LOADER— 

The BIN Loader is a short utility program which, when in core, 
instructs the computer to read binary-coded data punched on paper 
tape and store it in core memory. BIN is used primarily to load the 
programs furnished in the software package (excluding the loaders 
and certain subroutines) and the programmer’s binary tapes. 

BIN is furnished to the programmer on punched paper tape in 
RIM-coded format. Therefore, RIM must be in core before BIN 
can be loaded. Figure A-3 illustrates the steps necessary to prop- 
erly load BIN. And when loading, the input device (low- or high- 
speed reader) must be that which was selected when loading RIM. 
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Figure A-3 Loading the BIN Loader 
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When stored in core, BIN resides on the last page of core, oc- 
cupying absolute locations 7625 through 7752 and 7777. 

BIN was purposely placed on the last page of core so that it 
would always be available for use — the programs in DEC’s soft- 
ware package do not use the last page of core (excluding the Disk 
Monitor ) . The programmer must be aware that if he writes a 
program which uses the last page of core, BIN will be wip- 
ed out when that program runs on the computer. When this 
happens, the programmer must load RIM and then BIN before 
he can load another binary tape. 

Binary tapes to be loaded should be started on the leader-trailer 
code (Code 200), otherwise zeros may be loaded into core, destroy- 
ing previous instructions. 

Figure A-4 lilustrates the procedure for loading binary tapes 
into core. 
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Figure A-4. Loading A Binary Tape Using BIN 
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appendix b 

character codes 


ASCII-1 1 2 Character Set 


Character 

8-Bit 

Octal 

6-Bit 

Octal 

Decimal 
Equivalent 
(A1 Format) 

Character 

8-Bit 

Octal 

6-Bit 

Octal 

Decimal 
Equivalent 
(A1 Format) 

A 

301 

01 

96 

! 

241 

41 

-1952 

B 

302 

02 

160 

” 

242 

42 

-1888 

C 

303 

03 

224 

# 

243 

43 

-1824 

D 

304 

04 

288 

S 

244 

44 

-1760 

E 

305 

05 

352 

% 

245 

45 

-1696 

F 

306 

06 

416 

& 

246 

46 

-1632 

G 

307 

07 

480 

1 

247 

47 

-1568 

H 

310 

10 

544 

( 

250 

50 

-1504 

I 

311 

11 

608 

) 

251 

51 

-1440 

J 

312 

12 

672 

* 

252 

52 

-1376 

K 

313 

13 

736 

4- 

253 

53 

-1312 

L 

314 

14 

800 


254 

54 

-1248 

M 

315 

15 

864 

_ 

255 

55 

-1184 

N 

316 

16 

928 


256 

56 

-1120 

O 

317 

17 

992 

/ 

257 

57 

-1056 

P 

320 

20 

1056 


272 

72 

-352 

Q 

321 

21 

1120 


273 

73 

—288 

R 

322 

22 

1184 

< 

274 

74 

-224 

S 

323 

23 

1248 


275 

75 

-160 

T 

324 

24 

1312 

> 

276 

76 

-96 

U 

325 

25 

1376 

? 

277 

77 

-32 

V 

326 

26 

1440 

@ 

300 


32 

w 

327 

27 

1504 

[ 

333 

33 

1760 

X 

330 

30 

1568 

\ 

334 

34 

1824 

Y 

331 

31 

1632 

] 

335 

35 

1888 

Z 

332 

32 

1696 

t( A )" 

336 

36 

1952 

0 

260 

60 

-992 

<“( — )“ 

337 

37 

2016 

1 

261 

61 

-928 

Leader/Trailer 

200 



2 

262 

62 

—864 

LINE FEED 

212 



3 

263 

63 

—800 Carriage RETURN 

215 



4 

264 

64 

—736 

SPACE 

240 

40 

-2016 

5 

265 

65 

-672 

RUBOUT 

377 



6 

266 

66 

-608 

Blank 

000 



7 

267 

67 

-544 

BELL 

207 



8 

270 

70 

—480 

TAB 

211 



9 

271 

71 

-416 

FORM 

214 




1 An abbreviation for American Standard Code for Information Interchange. 

2 The character in parentheses is printed on some Teletypes. 




INDEX 


AC1, 44 
AC2, 44 
AC3, 44 

Acceptable nesting 
techniques, 25 
ACE, 44 
ACS, 44 

Addressing, 45 

Indirect relative, 47 
Relative, 45 
ALTMODE, 54 
ANORM, 48 
Argument , 36 

Arithmetic operations , 3 
Priority of, 4 
Arithmetic statement, 10 
Array, 25 

Maximum size of an, 28 
ASCII character set, B-l 

Backslash, 9 
BASIC compiler, 58 
BEGFIX, 48 
BIN loader, A-4 
loading the, A-5 
loading a binary tape, 
A-7 

BKWD, 45 

Character codes, B-l 
Character set, B-l 
Characters , 
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